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© Data gathering system Interface. 



© A data gathering system (100) for use in a checkout counter (102) to determine information relating to 
products to be purchased and to provide such information to a cash register system includes a scale (104) 
supported within the checkout counter (102) for determining weights of products presented to the data gathering 
system (100). The scale (104) includes a subplatter (110) located below the upper surface of the checkout 
counter(102). An optical scanning arrangement (112) is supported on the subplatter (110) for reading coded 
labels on the products. A common interface circuit (200) is responsive to both the scale (104) and the optical 
scanning arrangement(112) for providing weight data and coded label data to the cash register system. 
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DATA GATHERING SYSTEM INTERFACE 



The present invention relates generally to data gathering systems for use at point of sale checkout 
counters and, more particularly, to a data gathering system which comprises an optica! scanner supported 
on a weighing scale, and support means for suspending the system within a counter such that the optical 
scanner provides a weighing platter for the scale at an upper surface of the counter. Thus, bar coded data 

5 imprinted upon product labels presented at the counter can be read by the optica! scanner, and the weight 
of such products can be determined by placing the products on the optica! scanner. In effect, the optical 
scanner becomes the weighing platter of the scale. The bar code data and the weight data are supplied to 
the cash register system via a common interface. 

Supermarket checkout counters commonly include optical scanners mounted therein for optically 

70 scanning bar code labels on products to be purchased as the products are moved over scanning windows 
in the top surfaces of the scanners. The scanners read and convert the bar code labels into product 
identification and pricing information which is used for the sale and other merchandising purposes, such as 
inventory control. Since many products sold in supermarkets, for example produce, are sold by weight, 
oftentimes weighing scales are also positioned adjacent the checkout counters. The weighing scales can be 

75 manually operable such that sales clerks weigh products and then enter the resulting prices on associated 
cash registers. Alternately, the weighing scales can be partially or fully automated such that the weights and 
resulting price information are directly passed to the registers. 

One example of an automated data gathering system is disclosed in U. S. Patent No. 4.656,344, 
wherein a scale and an optical scanner are not only directly interconnected to an associated register but 

20 also are integrated into a single unit which fits within the checkout counter. While this integrated 
scale/scanner system offers advantages over the prior separated component systems in terms of conve- 
nience and space savings, still there are disadvantages and inconveniences associated with the integrated 
system. For example, by making the scale and scanner a single integrated unit, the system is heavy and 
difficult to install and/or remove from a receiving checkout counter. Adding to this problem, the system must 

25 be removed from the checkout counter each time the scale is to be zeroed or calibrated and then the 
system must be reinstalled. 

The need for a data gathering system for use at a point of sale checkout counter which provides for 
both scanning coded labels and also weighing products which are to be sold by weight has been 
recognized, and a combined scanner and scale which meets this need is the subject of the above identified, 

30 commonly assigned, U.S. Patent Application entitled Scale Having Platter Including Removable Optical 
Scanner pocket SPR 029 PA). The combined scanner and scale accomplishes is provided in a compact 
packaging arrangement which eases and facilitates removal and installation of the system for maintenance 
and repair. 

It will be appreciated, however, that since the scanner and scale both communicate with the cash 

35 register system, such as for example an IBM Model 4683 System, it is necessary to provide for a 
communications interface between both of these components and the cash register system, even though 
the components are physically combined. Not only has this required redundant interface circuitry, but the 
use of redundant cabling, and interface ports in the cash register system. It is seen, therefore, that there is 
a need for an interface arrangement which avoids the difficulties heretofore encountered. 

40 This need is met by a data gathering system according to the present invention for use in a checkout 
counter to determine information relating to products to be purchased and to provide such information to a 
cash register system. The data gathering system includes a scale means supported within the checkout 
counter for determining weights of products presented to the data gathering system. The scale means 
includes a scale weighing platter located below the upper surface of the checkout counter, optical scanning 

45 means supported upon the scale weighing platter for reading coded labels on the products, and a common 
interface circuit, response to both the scale means and the optical scanning means, for providing weight 
data and coded label data to the cash register system. 

The scale weighing platter includes scanner locator means for positioning the optical scanning means 
on the scale weighing platter for assembly of the data gathering system. A support means is provided for 

so suspending the data gathering system within the checkout counter. The scale means is secured to the 
support means. 

The optical scanning means includes a bar code decoder circuit for decoding scan signals to provide 
coded label data, a scanner microprocessor for correlating coded label data and supplying the coded label 
data to the common interface circuit, and scanner memory means for storing control software for use by the 
scariner microprocessor. 
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The scale means may supply weight data to the bar code decoder circuit of the optical scanning 
means, and the bar code decoder circuit then supplies the weight data to the common interface circuit via 
the scanner microprocessor without alteration. Alternatively, the scale means may supply weight data 
directly to the common interface circuit. 

5 The common interface circuit comprises an interface microprocessor, responsive to coded label data 
from the optical scanning means and to weight data from the scale means, interface memory means for 
storing control software for use by the interface microprocessor, and a driver circuit, responsive to the 
interface microprocessor, for supplying weight data and coded label-data to the cash register system. 

The data gathering system according to the present invention for use in a checkout counter determines 

io information relating to products to be purchased and provides such information to a cash register system, 
including weight data and coded label data. The counter defines an upper surface upon which products are 
placed for access to the data gathering system. The data gathering system includes support means for 
suspending the data gathering system within the checkout counter, and scale means secured to the support 
means for determining weights of products presented to the data gathering system. The scale means 

75 includes a scale weighing platter located below the upper surface of the checkout counter. An optical 
scanning means is supported upon the scale weighing platter for reading coded labels on the products. The 
optical scanning means has an upper surface including an optical scanning window, and is sized such that 
its upper surface is substantially aligned with the upper surface of the checkout counter when supported 
upon the scale weighing platter. The data gathering system includes a common interface circuit, responsive 

20 to both the scale means and the optical scanning means, for providing both weight data and coded label 
data to the cash register system. 

The scale weighing platter may include scanner locator means for positioning the optical scanning 
means on the scale weighing platter for assembly of the data gathering system. 

The optical scanning means includes a bar code decoder circuit for decoding scan signals to provide 

25 coded label data, a scanner microprocessor for correlating coded label data and supplying the coded label 
data to the common interface circuit, and memory means for storing control software for use by the scanner 
microprocessor. 

The scale means supplies weight data to the bar code decoder circuit of the optical scanning means, 
and the bar code decoder circuit supplies the weight data to the common interface circuit via the scanner 
30 microprocessor without alteration. Alternatively, the scale means supplies weight data directly to the 
common interface circuit. 

The common interface circuit comprises an interface microprocessor, responsive to coded label data 
from the optical scanning means and to weight data from the scale means, memory means for storing 
control software for use by the interface microprocessor, and a driver circuit, responsive to the interface 
35 microprocessor, for supplying weight data and coded label data to the cash register system. 

The data gathering system may further included cables connected between the scale means and the 
optical scanning means for conducting electrical signals and power, the cables being sized, positioned and 
secured to prevent interference with the operation of the scale means. 

Accordingly, it is an object of the present invention to provide an improved combined scale and scanner 
40 system in which communication with a cash register system is facilitated; to provide such a combined scale 
and scanner system in which a single interface communicates between the scale and scanner, and the cash 
register system; and to provide such a combined scale and scanner system in which the interface is 
microprocessor controlled. 

In order that the invention may be more readily understood, it will now be described by way of example 
45 with reference to the accompanying drawings, in which: 

Fig. 1 is an exploded perspective view of a data gathering system in accordance with the present 
invention for use in a checkout counter; 

Figs. 2-4 are top, side and end views, respectively, of the data gathering system of Fig. 1 ; and 
Fig. 5 is an electrical schematic representation of the common interface circuit, and associated 
so circuitry, which is response to both the scale means and said optical scanning means, and which provides 
weight data and coded label data to the cash register system. 

Reference is now made to the drawings which show a data gathering system 100 in accordance with 
the present invention. The system 100 is designed for use in a point of sale checkout counter 102 and fits 
entirely within the counter 102. The system 100 is structured as two separate units which can be 
55 independently manufactured, packaged and shipped and also individually handled and installed. By 
structuring the system as two separate units, It initially can be easily installed in the counter 102 and 
thereafter easily* removed and reinstalled for system maintenance and repair. Further, the scanning 
operation can be more easily and accurately performed since scanning light beams pass through a single 

3 
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scanning window as opposed to two or more windows and/or apertures in prior art systems. 

The close proximity of the two separate units facilitates the transmitting both weight data and coded 
label data to a cash register system, such as for example an IBM Model 4683 cash register system. The 
data gathering system 100 conveniently provides for both reading bar-coded labels secured to products to 

5 be purchased and also weighing products which are placed upon the upper surface of the system. 

This data Is then sent to the cash register system via a common interface circuit, as will be explained 
more fully below. Not only does this utilize the system circuitry in a most efficient manner, but also reduces 
the amount of coaxial cabling and the number of cash register system input/output ports required. The data 
gathering system 100 comprises scale means, taking the form of a load cell scale 104 in the illustrated 

io embodiment, which is supported within the checkout counter 102 by support means and provides for 
determining weights of products presented to the data gathering system 100. The scale 104 comprises a 
cantilever beam load cell 106 secured at one end 106A to the support means which comprises a support 
cradle 108 in the illustrated embodiment, and to a scale load receiving plate or subplatter 110 at its 
opposite end 106B. The subplatter 110 is located below the upper surface 102A of the checkout counter 

75 102 as best shown in Figs. 3 and 4. 

Optical scanning means comprising a self-contained optical scanner 112 is supported upon the scale 
subplatter 110 for reading coded labels, such as bar-coded labels, on products presented for purchase at 
the checkout counter 102. The optical scanner 112 has an upper surface 112A including an optical scanning 
window 112B through which scanning light beams pass and is sized such that its upper surface 112A is 

20 substantially aligned with the upper surface 102A of the checkout counter 102 when the optical scanner 112 
is supported upon the subplatter 110. The weight of the optical scanner 112 is subtracted from the weight 
which is measured by the scale 104 or treated as a tare weight for the scale 104 such that the upper 
surface 112A of the optical scanner 112 serves as an extension of the subplatter 110 for receiving products 
to be weighed. 

25 The subplatter 110 includes scanner locator means comprising two raised circular bosses 11 OA which 
are received by corresponding indentations (not shown) formed into the bottom of the optical scanner 112 
for positioning the optical scanner 1 12 on the subplatter 110 for assembly of the data gathering system 100. 
Of course, differently formed bosses or different locating means can be provided as will be apparent to 
those skilled in the art 

30 Preferably, the data gathering system 100 is positioned within the checkout counter 102 such that the 
upper surface 112A of the optical scanner 112 is slightly above the upper surface 102A of the counter 102. 
The tapered trim strip 114 is secured across the checkout counter 102 adjacent the entry side 100A of the 
data gathering system 100 to elevate slightly the upper surface 102A of the counter 102 above the upper 
surface 112A of the system. 

35 The support means or support cradle 108 is adapted to be hung from the checkout counter 102 by 
means of support flanges 108A which extend from end plates 108B of the support cradle 108. It should be 
apparent that the counter 102 can be adapted to support the data gathering system 100 from the support 
flanges 108A such that the system can be precisely located relative to the counter 102 with convenient 
adjustment, if necessary, being provided by shims or otherwise. The support cradle 108 comprises at least 

40 two subplatter stop members 108C, six stop members 108C being included in the illustrated embodiment 
as best shown in Figs. 1 and 2, positioned to engage the subplatter 110 at the maximum extent of its travel 
to thereby prevent potentially damaging overtravei of the load cell scale 104. Preferably, stop pads 108D 
made of rubber or other resilient material are secured to the upper surfaces of the stop members 108C as 
shown in Figs. 2-4. 

45 The support cradle 108 comprises generally vertical side walls 118 and a bottom wall 120 which define 
a channel 122 extending laterally across the checkout counter 102 for receiving and protecting the load cell 
flexure 106 and electrical circuitry (not shown) which is connected to and operable with one or more load 
cells 124, see Fig. 1. secured to the load cell flexure 106 in accordance with well known weighing scale 
technology. The bottom wall 120 is peaked near its center 120A such that it gradually tapers downward 

so toward the end plates 108B of the support cradle 108 adjacent which the bottom wall 120 terminates in 
open slots 120B. A crowned channel cover 126, shown in Figs. 1-4, includes an opening 126A through 
which the load cell flexure 106 is connected to the subplatter 110, see Fig. 2. 

This support arrangement or mounting for the data gathering system 100 is preferred since it provides 
improved spill control over the prior art In particular, any spilled liquids which flow over the entry side 100A 

55 or exit side 100B of the system will flow harmlessly down the sides of the optical scanner 112 to the floor 
beneath the system where it can be periodically or immediately attended to through access panels (not 
shown) in the counter 102. Spilled liquids which flow down the ends of the system will be limited due to the 
narrowness of slots 128 between the optical scanner 112 and the support flanges 108A/end plates 108B of 
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the support cradle 108, see Figs. 2 and 3. Further, the majority of such liquid will also flow harmlessly to 
the floor beneath the system due to the narrowness of the width of the channel 122 which is approximately 
one third of the width of the data gathering system 100. The remaining small portion of spilled liquid which 
passes through the narrow slots 128 will initially engage the crowned channel cover 126 and be diverted to 

5 the sides of the channel 122 and once again to the floor beneath the system. 

Any spilled liquid which does manage to seep past the channel cover 126 will flow down the interior 
surfaces of the end plates 108B and/or be diverted by the tapered bottom wall 120 to pass to the floor 
beneath the system through the slots 120B. Spilled liquids are thus eliminated from the data gathering 
system 100 by paths which do not tend to interfere with the movement and hence the operation of the scale 

70 104 of the system. 

To maintain the accuracy of the scale 104, cables for conducting electrical signals and power between 
the optical scanner 112 and the scale 104 of the data gathering system 100 are formed and secured to the 
scale 104 during its manufacture. More particularly, cables 180 are sized such that they extend between 
and are secured to the subplatter 110 and one of the side walls 118 of the channel 122 such that the cables 

75 permit free movement of the scale flexure 106 but do not affect such movement, see Figs. 1-3. By thus 
sizing the cables 180 such that they do not rest upon a portion of the data gathering system 100 dependent 
upon the deflection of the load cell flexure 106, the weight of the cables 180 can be compensated by 
calibration of the scale 104. This cabling arrangement is important since cables to the optical scanner 112 
must be routed through the subplatter 110 via an opening 11 0B therethrough. The cables 180 pass through 

20 a corresponding opening 112C, see Fig. 1, in the bottom of the optical scanner 112 and are precisely 
located and secured therein to assist in stabilizing the accuracy of the scale 104. 

Reference is made to Fig. 5 which illustrates schematically, the common interface circuit 200 of the 
present invention and circuitry associated therewith. The common interface circuit 200 is responsive to both 
the scale means 104 and the optical scanning means 112 including scanner circuit 202, for providing weight 

25 data and coded label data to the cash register system 204, which may be an IBM Model 4683 cash register 
system, as stated previously. The optical scanning means includes circuit 202 having a bar code decoder 
circuit 206 for decoding scan signals to provide coded label data. Circuit 202, preferably an NCR VLSI 
decoder circuit, decodes label segment data received on line 208. Scanner microprocessor 210 correlates 
the coded label data received from circuit 206 and supplies the coded label data to the common interface 

30 circuit 200 under control of control software stored in scanner memory means 212, preferably comprising 
an EPROM. Scanner microprocessor 210 is preferably an INTEL 8039 microprocessor. 

The scale means 104 may supply weight data via line 214 to the bar code decoder circuit 206 of the 
optical scanning means, and the bar code decoder circuit 206 then supplies this weight data to the common 
interface circuit 200 via the scanner microprocessor 210 without alteration. As indicated in Fig. 5 by line 

35 214', the scale means 104 may supply weight data directly to the common interface circuit if desired. 

The common interface circuit 200 comprises an interface microprocessor 216, responsive to coded 
label data from the optical scanning means 112 and to weight data from the scale means 104. Microproces- 
sor 216 is preferably a 2ILOG Supers microprocessor. Circuit 200 also includes an interface memory 
means 218. preferably an EPROM, for storing control software for use by the interface microprocessor 216- 

40 A driver circuit 219 is responsive to the interface microprocessor 216 for supplying weight data and coded 
label data to the cash register system 204. 

The control software stored in scanner memory means 212 may be exemplified by the following listing. 
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IS* 4683 INTERFACE SOFTWARE FOR SUPERS 



10 



2500 A.O. Super 8 Macro Assembler - Version 4.0Ie 



input File 
Output File 



: s846A3.asa 
: s84683.obj 



75 



20 



25 



30 



35 



40 



45 



50 



1 

2 
3 
4 

5 

'6 

r 
e 

9 
10 
11 
12 

13 

14 



15 0018 



0450 04 SF 0461 
0463 

0465 0442 0467 



16 

17 

16 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 



0010 0468 0460 046F 
0016 0471 

0473 0475 0477 
0479 



9T 
Bf 



0021 



; Super 6 Software for the It* 4014 interface. The .Hex file produced 
; is celled S84683.KEX. 

; Spectra-Physic* Part Nuaber R96-0159 Rev A 
; Cospiled by Stake Isaacs 
; Pates 3-14*1988 

; Interrupt vectors: 



vec_0 # vec_2, vec_4 . vec_6 
vee_8 # int_p33,vec_c.vec_e 
vec_10,vecJ12,vec_14,vec_16 
vec_18 # vec_1a,vee_1c.vec_1e 

; Zitog suggestion 



start: 



ei 
di 



0022 80 00 
0024 80 02 
0026 80 03 
80 04 



002A E6 F8 88 

0020 86 F9 62 

0030 E6 FA 09 

0033 E6 F8 80 



; initial ite FORT registers: 

; Initialize ports before setting to outputs: 

ctr PO 

elr F2 

clr F3 

clr F4 



Id P2AM,*X88 

id P2SM # «%62 

Id P2Ot,*X09 

id F2DH,«ZS0 



; P31 is output (TxD) 



for 
Porta 



88 P2A* 10 00 10 00 P31 is TxO output, P30 is 8x0 input 
31 30 21 20 P20 and 21 wired together for uert ck 

P33 is intcrupt on end of data 
62 P2SM 01 10 00 10- P32 is Oata ready to 8039, P22 is low if 
33 32 23 22 88 has data, and P23 is ran from easilator 

08 P2CH 00 00 10 01 

35 34 25 24 MCO en P24/2S conf for fast int? 
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70 



15 



20 



25 



30 



35 



40 



45 



50 



44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 

61 



0056 E6 F1 30 



0039 E6 F0 FF 



OWE 
004F 
0052 
0055 



72 

73 

74 

75 

76 

77 

78 

79 
60 
81 
82 
83 
. 84 
85 
86 
87 
88 

89 0056 

90 

91 

92 

93 

94 

95 

96 0059 

97 0058 
96 0050 
99 

100 



5f 

E6 EO 04 
E6 El 04 
4F 



E6 DE tO 



80 FE 
80 08 
E6 09 FF 



80 P2DH 10 00 00 00 F37 enables 3695 Tx 

37 36 27 26 F27 ic /mck from 8039 when in 



; 241/0/PN default* to good stuff. 

Id PN # #Z30 
; 240/0/PON default Is OK. too. 

Id POH.fXff 

; 252 4 2S3/0/P2XIP defaults OC 

; 246/0/P40 defaults to all inputs, which Me want. 

; 247/0/P400 defaults to tote*- pole, which we want. 

; 244/0/HOC : Handshake 0 used for Fort 4, OKA to regs 0001 1101 



62 


O03C 


E6 F4 00 


Id 


R0C,fZ0 


63 










64 






; 245/0/H1C 


...not used 


65 










66 


O03F 


E6 FO FF 


Id 


P0M,fZFF 


67 


0042 


£6 00 00 


Id 


xo,«xo 


68 


0045 


E6 08 FF 


Id 


WM.fXff 


69 


0048 


E6 00 01 


Id 


IKR,fX1 


70 








71 


0041 


E6 FF 10 


Id 


tra,txio 



; prograwc rest of PO as address lines 

; the high part of the stack pointer 

; int erupt mask, re?, level 0 only 

; ok for 23 and 33 

; int erupt priority register a>b>c 

; Cport 23 wode set above as int erupt) 



; Counters 



; 224/0/COCT and 225/0/C1CT : idle 

; 224/1/C0N and 225/1/C1H : siaple tiwers 



sbl 
Id 
Id 
sbO 



C1N,«4v 



; initialise interrupt svsteai 

; 255/0/IP* : default priorities OC. 
; 222/STM : Fast interrupts on tt04: 

Id SYM,tX10 ;not needed vet, used ■ 

; 221/IMft s enable 1*04 for Handshake 0 later... 

; 254/0/EHT s defaults to stack in registers 
; ..so put it at top of RAN (in registers) 



EHT ; fast memory; stack in registers 

SPH 

SPl,fXFF 
; Prograw.the UART: 



elr 
clr 
Id 
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70 



75 



20 



25 



30 



35 



40 



45 



60 



101 
102 
103 
104 
105 
106 
107 
106 



110 

111 

112 

113 

1U 

115 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

13S 

136 

137 

138 

139 

140 

U1 

142 

143 

144 

145 

146 

147 

148 

149 

150 
151 
152 
153 
154 
155 
156 
157 



; /1A*A i clock *32 rev f leg - 1 (16 desired by S*) 
; /1/UKI : use system clock xtat/2 to P2, 



0060 
0061 
0064 
0067 



5F 

E6 re 00 
E6 f F 00 
E6 FA 73 



006A E6 Ft 44 
0060 4F 



006E E6 El K 



0071 80 ED 
0073 E6 EC 7C 



0076 



0013 
0014 
0015 
0016 
0017 
0020 
0021 



0022 
0023 
0024 



0002 



0002 
0003 



S81 

Id 
Id 
Id 



Id 
S80 



WUCIt.tXO ; don't user wake up Omsk 
UKSCfZO 

UtA,*X73 ;0111 0011 ; div by 16 for 6 Mhz xtal. 

; no parity, mice up bits are 
; expected high for rec and sent 
; high on xait. 

UHB,*X44 ;0100 0100 



; /0/UTC t set up end enable transmitter: 

Id UTC.fZBE ; 101 11 no i 2 - bSt c^r*. etc. 

; use P31 for sent data. don't send 
; break, 2 stop bits, yoke up enable! , 
; trans enable, zero count (not used), 
; TIE, end Trans DMA (off) 

; /0/UIE r no interrupts for now 



etr 
Id 



UIE 

l*C,fX7C 



; 01111100 reset, but disabled 



; When ready to start. Id l*C with #2 to enable receiver, 
title ISM 4683 INTERFACE SOFTUAtE FOC SUPERS 

tSECT 

; Output buffer format: 

; <4ev_acfclr/S0LC/stat1/«tat2/st«t3/«essa9e 

; Device mddr and status will remain here permanently. 



out_buf f ds 
©ut_len ds 
out_sdlc ds 
inf leg ds 
in_ten ds 
fnbuff ds 
eurstat 
tftcntr ds 

online equ 
ftR_pend equ 



0025 
0026 



stat_req ds 
EC_req ds 
setjw ds 

Stajbytel equ 
Sta_byte2 equ 
Ste_byte3 equ 

delayl ds 
delay2 ds 



; output buffer, starts at reg loc 0 

? 

; 2nd byte of output meg 

; input length 
; input buffer 
1 ; status byte: 

7 tft_pend timeout counter 

; bit 0 > online 

; bit 1 « ftt pending 

; bit 2 « sanwed; owe him «SA 

; 1 * send status en next cycle 
; 1 ■ send EC on next cycle 



; offset from 0 for status bytes 
; (adr is 0. 1 is SOLC byte) 
; not used 



55 



8 



BNSDOCID: <EP 0388560A2_I_> 



EP 0 388 560 A2 



ISM 4483 INTERFACE SOFTWARE FOR SUPERS 



TO 



75 



20 



25 



40 



45 



50 



IS© 


UUZr 




•vll <fc 


1 




*********************** 


1>T 


UU3I 




01*9 


X51 






160 


OQ51 




poll_ct ds 


1 




;* NOTEI 


161 












D0N*T USE rl 


162 






ends 






;• (used by DMA) 


163 














164 


0076 




CODE 








165 














166 






; Setup low register file: 






167 














166 


0076 


1C 50 


Id 


r1 # «50 






169 


0078 


06 CI 00 


Slip Id 


8r1,#X00 






170 


007B 


1A F8 


djru 


n.siup 






171 


007D 


80 00 


clr 


0 






172 


007F 


OC 05 


Id 


r0 # #X5 






173 


0081 


80 C2 


clr 


r2 






17ft 


0083 


06 CC 04 26 


Idu 


rr12,ihdr 






175 


0087 


£3 3C 


hdlp: Idci 


r3,Orr12 


; load up the above header In low 


176 


0069 


07 23 


Id 


Sr2 r r3 






177 


0088 


2E 


ine 


r2 






178 


008C 


OA F9 


djnz 


rO,bdtp 






179 


008E 


46 03 04 


or 


P3,f%04 


; be cure p32 is high (0000 0100) 


180 














181 






;R0N checksum 


routine 






182 














183 


0091 


9C 00 


ehktmO: Id 


r9 # #0 






184 


0093 


C6 CC 00 00 


Idu 


rr12,«0 






185 


0097 


E3 8C 


chksmlz Idci 


r8,8rr12 




• loed next byte into reg 


186 












f roo progrsn oemry 


187 


0099 


02 98 


edd 


r9 # r8 




• r9 to hold sub 


188 


0098 


A6 CO 00 


«P 


r13,f0 




Address of lest byte in EPROH 


189 












Clow address byte) 


190 


009E 


68 02 


jr 


eq,chks*2 




done adding ? 


191 


00A0 


88 F5 


jr 


chksatl 




no, loop back 


192 


00A2 


A6 CC 10 


chksnZ: cp 


r12,fX10 




Address of last byte in EPRON 


193 


00A5 


El FO 


Jr 


ne,chksa1 




no, loop back 


194 


00A7 


A6 C9 FF 


cp 


r9,*XFF 




is checkstM FF 7 


195 


OOAA 


68 02 


ir 


eq,cfckss3* 




yes* Juap 


196 


OOAC 


88 E3 


Jr 






repeat checksui until passed 


197 






chk**3: 






good checksum 


198 














199 


OOAE 


56 03 FE 


and 


Sta_byte2,fXFE 


• 


set scanner not alive. 


200 










• 


status set to alive only 


201 










» 


after successful handshake 


202 












with 8059 


203 






Z END Of INITIAtlZTlON 






204 














205 


0081 




uartjaatn: 








206 














207 


0081 


46 EC FE 


or 


UKC/iXFE 




Rx on 


208 


0084 


E8 EF 


id 


r14,U!0 


• 


trash rondos input 


209 


0086 


EC 17 


Id 


r14,#inbuff 


* 


point to buffer 


210 


0088 


80 CC 


clr 


r12 




count « 0 


211 


OOBA 




polL2 








212 


O08A 


08 02 


Id 


r0 # p2 


• 


test -8039 PON line 


213 


OOBC 


37 OF 00 


btjrt 


sonr_on # r0,#7 


# 


is the scanner on? 


214 • 


008F 


38 03 


id 


r3.Sta_byte2 


• 


no 
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00C1 37 30 15 

00C4 56 03 FE 

O0C7 E6 22 01 

OOCA 8> OD 

OOCC 38 03 

OOCf 37 31 08 

0001 2C 77 

0003 F6 03 80 



0009 
0009 

ooot 

OOOE 
CODE 
OOEO 
00E3 



215 

216 

217 

218 

219 
220 
221 
222 
223 
224 

225 

226 0006 C6 22 01 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 

238 0066 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 



88 EC 
37 80 OC 

98 EF 
E6 EC FE 
37 8E D4 

37 9E 08 



btjrf pon_evr,r3,0O ; it scanner *lr**dy mmrktd off? 

■nd Stabytt2,#Xfe ; no, mmrk scanner off bit 

W stat_req,«1 ; <*j*ot In on trnqunted status 

jr pon__evr 

senren id r3,8te_byte2 

!** ,rt pon - ovr>r3 ' r) •* ^ *cmtr olive bit already set 
; load valid checkoua to sand to 8039 
; *cnd chocksua mult to 8039 
; successful handshake with 8039 Mill 
; aairk scanner alive bit 
; oueue in an unrequetted status 



Id r2 # fX77 
call tell_8039 



Id star_req,fX1 
; SERVICE 4683 
pon^ovr 

Id *8,tHX 

btjrf poll2,r8,#0 

poll3 id t9,UI0 

Id IXC, WIFE 

btjrf poll2,r8,t7 



O0E9 


A6 C9 CA 




cp 


V - w , — 

r9,fXCA 


OOEC 


El CC 




jr 


ne,poll2 


OOEE 


80 02 30 




IP 


polled 


oon 




addrci 


d: 




oon 


A6 C9 4A 




«P 


r9.CUA 


O0F4 


68 OS 




Jr 


•q."e 


00F6 


A6 C9 7A 




cp 


r9,#X7A 


O0F9 


Et 8F 




jr 


ne,poll2 












OOfI 


76 C8 18 




to 


18,8X18 


OOFE 


ED 01 74 




JP 


nz.EKROI 


0101 


C6 CA FF FF 




Idw 


tt10,«XFFFF 


0105 


07 E9 




Id 


9rU.W9 


0107 


A6 CC 08 




cp 


r12,fX08 


O10A 


68 02 




jr 


x.pell5 


O10C 


EE 




inc 


rK 


0100 


CE 




inc 


r12 


O10E 


08 EC 


poll5 


Id 


tO,l*C 


0110 


37 00 F8 




btjrf 


poU5,rO,#0 



; loop until tOA 

; tet input 

; reset U«T recvr 

; loop until IAJ0 

; vo if an address 
; 1010 1010 4a ♦ 80 
; not ay poll 
; ..else, polled 

; for aw? 



; ..no - try again 

; A eessege for me I 
7 any UAftT errors? 



; init. CSC 
; save input 

; liait inbuff to 9 bytes 



262 
263 
264 
265 
266 
267 
268 
269 
270 
271 



0113 
0115 
0118 
01 1A 
0110 
0120 



98 EF 
A6 C9 7E 
E8 03 
37 OF 06 
37 OE E5 
80 01 7E 



poll6 Id *9,U10 

ep 89,#SC7E 

jr ne.poll7 

btjrt erc0,«0,#7 

poll7 btjrf p_4_a,t0,#7 

jp Et*23 



; buap count 



; loop for KDA 

; tet input 
; flag CEOMJ? 
; -.«o 
; »o if 9th bit 

; «rror if 9th bit and not EON 
; (needs a long jtop) 



■ EON received 



; check C*C«s 
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10 



15 



20 



25 



30 



35 



40 



45 



50 



272 












273 


0123 


C9 16 


crcO 


Id 


«n_ten,r12 


274 


0125 


C6 CA FF FF 




Idu 


rrlO.RXFFFF 


275 


0129 


EC 17 




Id 


r14,finfauff 


276 


0128 


C7 9E 


crcl 


Id 


r9,8rH~ 


277 


012D 


F6 03 F7 




call 


ChkSUa 


278 


0130 


EE 




ine 


rU 


279 
250 


0131 


CA F8 




djfu 


r1Z,crt1 


251 


0133 


A6 CA 88 




ep 


M0 # fX88 


282 


0136 


El 41 




jr 


ne.ERR20 


283 


0138 


A6 CB FO 




ep 


r11,#XF0 


284 


013B 


EB 3C 




Jr 


ne,ERR20 


285 


0130 










286 






; check SOLC < 


counts* 


287 












288 


0130 


88 18 




Id 


R8.1n_buff*1 


289 


013F 


76 C8 11 




to 


r8,fX11 


290 


0142 


68 OC 




jr 


X.potl9 


291 


0144 


98 C8 




Id 


r9,r8 


292 


0146 


56 C9 IF 




and 


r9,#X1F 


293 


0149 


A6 C9 01 




cp 


r9 # 8X01 


294 


014C 


68 08 




jr 


cq.polUO 


295 


0146 


88 IF 




jr 


point 


296 


0150 




pot 19: 






297 


0150 


56 CS OE 




Of* 


r8,#Z0£ 


298 


0153 


00 C8 




era 


r8 


299 


0155 


A2 85 




cp 


r8,r5 


300 


0157 


EB 2A 




jr 


ne,ERR24 


301 


0159 


88 18 


potMO 


td 


r8,inbuff+1 


302 


0158 


FO C8 




swop 


r6 


303 


0150 


56 C8 OE 




and 


r8,f2QE 


304 


0160 


00 C8 




ere 


re 


305 


0162 


A2 84 




ep 


r8.r4 


306 


0164 


El 22 




jr 


ne.ERR2S 


307 


0166 


88 18 




td 


r8,inbuff*1 


308 


0168 


37 81 04 




btjrt 


poU11,r8,«0 


309 


0168 


5E 




ine 


r5 


310 


016C 


56 C5 07 




ond 


r5 # *7 1 


311 












312 






point: 




; Hove 


313 












314 


016f 


E6 15 FF 




td 


ln.flog.fXFF 


315 


0172 


88 19 




jr 


*T0126 


316 












317 


0174 


E6 15 01 


ERR01 


td 


ir»_fleg,*XD1 


318 


0177 


88 14 




jr 


T0126 


319 












320 


0179 


E6 15 20 


ERR20 


td 


in a> flog # fX20 


321 


017C 


88 OF 




jr 


T0126 


322 












323 


017E 


E6 15 23 


ERR23 


td 


in_fleg,*X23 


324 


0181 


88 OA 




jr 


10126 


325 












326 


0183 


E6 15 24 


ERR24 


td 


in_fleg.«24 


327 


0186 


88 05 




Jr 


T0126 


328 













; stash count in buffer 
; init CRC 



do CRC check on byte 

set to nest byte 

length of aessage in r12 



; bad CRC 



is it RRROSSSO ? 
..ye* - esg 



other SOLC protocol bytes 



vs ay tss 



tie* 
so if protocol 
buap aqr RRR 
RRR is 3 bits 



; Have a good input Message. 



exit 



irproper 9th bit 



owf R 
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329 
330 
331 
332 
333 
334 
33S 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
36? 
370 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
381 



0188 
0181 



E6 15 25 
88 00 



ERR2S 



Id 

Jr 



ln_flag,fX2S ; his R o my S 
T0126 



0180 56 EC FO 



0192 
0195 
0198 
0198 



; Cowaon exit fro* this routine... 

T0126 and URC.RXFF-XQ2 ; stop UAJtT receiver 

At this point, we have either: 
An error 
An input Message 
A SttRK 
An RR 



; get our status 

; Cused throughout below code) 

; did we get a Messeoe? 
I ••nope 



01A1 
01A3 
01A6 

01A7 
01A9 
01A8 



01AF 





; If Me arc 


offline, only a S 




I KSA, rose 


t our counts, and 


38 20 


td 


r3,our_stat 


A6 15 FF 


cp 


in_flag,«XFF 


E0 00 81 


iP 


ne,uartjBBin 


A6 18 83 


ep 


infauff*1,#X83 


E8 17 


jr 


nc.no^SintM 


3C32 


Id 


r3,#50 


39 21 


Id 


RRcntr # r3 


3C 00 


Id 


r3,«X0 


F6 04 2R 


call 


already 


9F 


ei 


77 35 


bits 


r3,*$*x*ed 


77 31 


bits 


ri # #online 


39 20 


Id 


our_atst,r3 


80 C4 


clr 


r4 


80 CS 


clr 


r5 


80 00 81 


iP 


usrtjeein 



; initialize RR tiaeout counter 

; clear the world on a SKRft 

; could move this part from wain 

; where it leads into the wart cat I 



it 

? ..and put us online 
; save stat 

; clear m 



0184 
0187 
0189 
018C 
018F 
01C1 
01C3 
01C5 
01C8 
01C9 



01CC 



383 
384 
385 



0102 
0102 



37 32 15 
28 16 
56 C2 IF*" 
A6 C2 01 
E8 OR 
77 32 
39 20 
F6 04 28 
9F 

80 00 81 

37 31 03 
80 00 81 



28 18 



; and exit 

; If we just sent a Message, then we only expect an RR. 

no_SMRM btjrf no_RR, r 3.m_pend ? go if no RR reod 

ld r2.ln.buff*1 ; get SDLC byte 



cp 
ir 

bitr 
Id 
call 
ei 

jp 



r2,«X1F 
r2.#1 
ne,no_RR 
r3.#Rt_pend 
our_stat,r3 



; should be RRR00001 

; ..but it isnt 

; reset RR pending bit 



uart_wain 



J scans 1 row the 8039 
; and exit 



no_RR btjrt wt_is.on,r3,aonline ; go if online 



iP 

ue_is_ofu 
Id 



uartMin ; ERROR - no valid wags here 

r2,inbuff+1 ; get SDLC byte 
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306 


0104 


$6 C2 11 


and 


r2,«11 


; should be tuomo 


587 


0107 


ED 00 01 


Jp 


nx,usrt.eain 


; ..but It tsnt 


388 
389 






; cot a good 


Message. . .procesi 


t It 


390 












391 


010A 


E6 24 01 


Id 


set.Bft.SXI 


; flag that next poll gets BR 


392 












393 


01D0 


26 19 


Id 


r2 # in.buff *2 


; get coaaand byte 


394 


010F 


A6 C2 00 




r2,*XD0 




395 


01E2 


68 39 


jr 


Z,sys.cad 


; go if systea ma— nJ 


396 












397 


01E4 


A6 C2 11 


cp 


r2,SX11 


; enable caaaand 


398 


01E7 


EB 09 


jr 


. ne,cad1 




399 


01E9 


46 03 02 


or 


Stejbyte2 # *a2 


; 0000 0010 


400 


01EC 


F6 03 60 


Mil 


tetljB039 




401 


01EF 


80 00 01 


Jp 


%mrt_mm in 




402 












403 


01 F2 


A6 C2 12 


cadi cp 


r2,*TI2 




404 


01FS 


EB 09 


jr 


ne,cad2 


; disable 


405 


01 F7 


56 03 FD 


and 


Ste.byte2 f fXfd 


; 1111 1101 


406 


01 FA 


F6 03 00 


call 


tel 1.8039 




407 


01 FD 


80 00 SI 


jp 


uart^Min 




408 












409 


0200 


A6 C2 14 


okC cp 


r2.tTI4 




410 


0203 


EB 09 


jr 


ne # eac8 


; beep enable 


411 


0205 


46 02 10 


or 


StaJjytel.tXIO 


; 0001 0000 


412 


0208 


F6 OS SO 


call 


tel 1.8039 




413 


0208 


80 00 SI 


jp 


utrtjattin 




4U 












41S 


020E 


A6 C2 18 


cad3 cp 


r2,*TI8 




416 


0211 


ED 00 SI 


jp 


ne,uert_eain 


; ditable*beep 


417 


0214 


56 02 EF 


and 


Sta.bytel.SXef 


; 1110 1111 


418 


0217 


F6 03 80 


call 


tel 1.8039 




419 


021A 


80 00 SI . 


jp 


usrt.oain 




420 












421 


0210 


28 1A 


sys.cxd Id 


r2, In.buf * *3 


; get systea eoneend 


422 












423 


02 IF 


37 28 OF 


btjrt 


stat.set, r2 t 85 


; status req 


424 


0222 


37 2F 12 


btjrt 


EC.eet.r2,87 


; CCS req 


425 


0225 


37 29 09 


btjrt 


stat.set, r2,#4 


; test req * status req 


426 


0228 


37 20 03 


btjrt 


sys_re*et,r2,*6 


; systea reset 


427 












428 


0228 


80 00 SI 


jp 


uart.ee in 


; bad systea i o— and 


429 












430 


022E 




«y*_rexet: 






431 


022E 


80 00 20 


jp 


X0Q20 


; restart prog rail 


432 












433 


0231 




stat.set: 






434 


0231 


E6 22 01 


Id 


stat.req,fX1 


; send status on next poll 


43S 


0234 


60 00 81 


jp 


uart.au in 




436 












437 


0237 




EC.set: 






438 


0237 


E6 23 01 


Id 


EC.req.SX1 


; send EC on next poll cycle 


439 


023A 


80 00 81 


jp 


uart.eein 




440 












441 






; We got 1st poll character... look for 2nd 


442 
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70 



75 



20 



25 



30 



40 



SO 



443 0250 

444 car 

US 0242 

446 0244 

447 0247 

448 024A 
449 

450 024C 
451 

432 C24F 

453 

4S4 

455 

456 

457 

458 

459 024F 

460 024 F 

461 0251 

462 02S4 

463 0257 
464 

465 02SA 

466 0250 

467 0260 

468 0262 

469 0264 

470 0267 

471 026A 

472 026A 

473 0260 

474 0270 

475 0273 

476 0276 
477 

478 0279 

479 027C 
460 027E 

481 0281 

482 0283 

483 0285 

484 0288 
485 
486 
487 

488 0291 
489 

490 0294 

491 0294 

492 0297 

493 0299 

494 029C 

495 029F 

496 02A2 

497 02A4 

498 02A6 

499 02A9 



88 EC 
37 80 Ft 
96 EF 
E6 EC FF 
A6 C9 CA 
68 03 

80 00 8A 



38 20 
37 31 06 
F6 03 C7 
80 00 81 

37 34 00 
F6 03 CC 
77 34 

39 20 
£6 22 01 
80 00 81 

A6 24 00 
60 02 79 
E6 24 00 
F6 03 81' 
8D 00 81 

A6 22 00 
68 16 
E6 01 00 
EC 00 
CC 05 
E6 22 00 
F6 02 F6 

38 20 
77 33 

39 20 
80 00 81 



A6 23 00 
68 IF 
E6 01 00 
46 02 01 
E6 05 04 
EC 00 
CC 06 
E6 23 00 
F6 02 F8 



polled Id 


«8 # urc 


btjrf 


polled,*8.fO 


Id 


r9 r tH0 


Id 


UtC,fXFF 


cp 


r9,CCCA 


jr 


eq.polljte* 


IP 


poll2 



; loop until KOA 
; «et Input 
; cl«ir statu* 



else. Ignore 



poiljmtz 

; If offline. we will always send MOU 

; If SMtftd. ye will send MSA. 

; If out_len o 0, send Message fro* out buff. 

; If out_len • 0. tiapty send E0P. 



Id 



r3,our_stet 



btjrt p_4a.r3,fonline ; 90 If onUne 
send tot 
..end exit 





cell 


SEMDJtOl 




ip 


uartjMin 


P-fe 


btjrf 


Pjlb,r3.fSNt* 




cell 


S£M0_MSA 




bitr 


r3,*S*Wted 




Id 


our stst # r3 




Id 


stat_req,«X1 




iP 


usrt_a»in 


P.4b: 








cp 


«etjttt,8» 




iP 


*,P_4bb 




td 


eetjut.tw 




cell 


SENDJUt 




iP 


uert_a»in 


P_4bb: 


CP 


stst_req,*XO 




ir 


*.P_4e 




Id 


eut_buff*1,*X0 




Id 


r14,«0 




Id 


rl2,«5 




Id 


stat_req,«%0 




cell 


ftSCjOUT 




Id 


r3 # «urjstat 




bits 


r3,*tft_pend 




Id 


our_stet.r3 




iP 


uartjeein 


Pj4es 








«P 


ECreq,«0 




ir 


*.P.4d 




Id 


6ut_buff+1,#X0 




or 


out_buff*2,tXD1 




Id 


outJbuff*5,#X04 




Id 


r 14, tout buff 




Id 


r12 # «%6 




Id 


EC_req,«0 




call 





; if SUM. send MSA 

; reset request for MSA 

» - • in rsect 

; queue en unrcquested status 
; ..and exit 

; check if tt is needed 

• clear flag 



; see if we need to send status 

v * ki P if no request for status 

; need to wipe the SOLC byte 

; nsg pointer 

; length » 5 

; clear status request 



nsrfc MR pending 



; see if an EC req has been queued 

; egain skip if no EC request 

; sust wipe SOLC byte or NSGJOUT fails" 

; flag that EC present 

; the observed EC * 

; EC sight overlay first char in ssg 



clear EC request 



55 
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500 


02AC 


56 02 FE 




and 


out_buff*2 # ftXfe * clear EC present froa status 


501 


02AF 


38 20 




Id 


rS.our^stat 




502 


0281 


77 33 




bits 


r3,«t_pend 


; eark 81 pending 


SOS 


0283 


39 20 




Id 


our_stat # r3 




504 


0285 


80 00 81 




jp 


uertjsain 




505 














506 


0288 


A6 13 00 




CP 


out_l«n,#0 


; last check for sags to go 


507 


0288 


Eft 06 




jr 


ne.P>e 


; there is a esg to go 


50ft 


0280 


F6 03 01 




call 


SEWJEOP 


; else, send EOP 


509 


O2C0 


80 00 81 




iP 


uartoain 




510 














511 






; »y 


haw all 


"eady sent atsg *nd could be awaiting ft* 


512 














513 


02C3 












5U 


02C3 


38 20 




Id 


r3,our_stet 




51S 


02C5 


37 32 16 




btjrf 


p_4f # r3,#ftft_pend ; test to keep asp froa dup waits 


516 


02C8 


70 C9 




push 


r9 




517 


02CI 


98 21 




Id 


r9,Rftcntr 


; 8ft timeout counter 


SIS 


02CC 


00 C9 




dee 


r9 




519 


02CE 


A6 C9 00 




«P 


r9,#0 




520 


02D1 


Eft 02 




Jr 


nx,p_4ee 


; If 8ft tiacout, aw>rk ourselves 


521 


02D3 


77 30 




bttr 


r3,*on(tne 


; offline 


522 


02D5 


99 21 P_>«: 


Id 


Rftcntr,r9 




523 


02D7 


50 C9 




P«P 


r9 




524 


0209 


39 20 




Id 


our_stat,r3 




525 


02D8 


80 00 81 




JP 


uart_eain 




526 














527 


02DE 


CC 32 p_4f: 


Id 


r12 # f50 


; reset 8ft tiaeout counter 


528 


02£0 


C9 21 




Id 


8Rcntr,r12 


; get ready to send label 


529 


02C2 


a 13 




Id 


r12 # out_4«n 


; get length 


530 


02E4 


EC 00 




Id 


r14.8out.buff 


..and address 


531 


02E6 


EE 




fine 


rl* 


; point to SOLC byte 


532 


02E7 


06 CE 00 




Id 


ar14,8X0 


; clear byte Csee KSCJOUT for why) 


533 


02£A 


00 CE 




dec 


r14 


; point back to start 


534 


02EC 


F6 02 F8 




call 


KSGjOUT 


; send asg 


535 


C2EF 


38 20 




Id 


r3,our_stet 




536 


02F1 


77 33 




bit* 


r3,ffStR_pend 


; atari tft pending 


537 


02 F3 


39 20 




Id 


ourjstat # r3 




53B 


02FS 


80 00 81 




iP 


uart_o*tn 


; exit 


539 














540 






; Acs 


sage output... assumes register usage: 


541 








814 « 


address of asg to send (ftSECT) 


542 








812 « 


length of oessage 


<«**. 20 ) 


543 








8810 ; 


will be used for 


checksums 


544 








89 


will carry one byte for output 


545 








88 


will carry flags for output 


546 








884 : 


SOLC counts 




547 


02F8 


1 


tSGjOUT: 






548 


02F8 


56 EC FO 




and 


URC,fXFF*X02 


; receiver off 


549 


02F8 


46 03 80 




or 


P3,«Z80 


; P37 on 13695 witter) 


550 


C2FE 


OC OC 




td 


80,812 


10 


551 


0300 


OA FE ItU 


djnz 


80,1111 


; delay for awhile 12/n 


552 


0302 


SF 




sbl 






553 


0303 


46 FA 01 




or 


tau # TO1 


; 9th bit high C1 state) 10 


554 


0306 


4F 




sbO 




: 6 


555 


0307 


C7 96 




Id 


89.3814 


; get 1st byte 10 


556 


0309 


EE 




ire 


814 


; * 
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70 



t5 



20 



25 



30 



35 



40 



SO 



55 



557 

ssa 

559 
560 
561 
562 
563 
564 
565 
566 
567 
566 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
5*0 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
. 597 
598 
599 
600 
601 
602 
603 
604 
605 
606 
607 
608 
609 
610 
611 
612 
613 



030A 99 EF 



030C 
0310 



C6 CA FF FF 
F6 03 F7 



id 



Idw 
call 



U10,x9 
K*10,#XFFFF 



••send ft to 
need 380-388 for 



0313 C7 8E 
0315 76 C8 11 
0318 El OC 

03 U 88 CS 

031C FO CS 

031E 42 84 

0320 90 C8 

0322 07 E8 

0324 88 07 

0326 FF 

0327 FF 

0328 FF 

0329 FF 
032A FF 
0328 88 00 

032D 89 14 
032F SF 

0330 56 FA F£ 

0333 4F 

0334 00 CC 
0336 68 OA 
0338 C7 9E 
033A EE 

0338 99 EF 

0330 F6 03 F7 
0340 88 F2 

0342 98 CA 

0344 89 27 

0346 60 C9 

0348 99 EF 

034A F6 03 F7 

0340 98 27 

034F 60 C9 

0351 99 EF 



0353 
0356 
0356 
0359 
035C 
035D 
035F 
0361 



F6 03 F7 
9C 7E 
5F 

46 FA 01 
4F 

OC OF 
OA FE 
99 EF 



; set SOLC co 


unts: 


Id 


*e,afti4 


tm 


ft8,ceu 


J> 


ftt,MOX 


id 


88 # r5 


susp 


re 


or 


K8,r4 


rl 


r8 


Id 


9814,86 


J> 





Inlt. cue 
; 18*166 



•et byte 
nonast < 
..no - protocol 

»LC rrr 

SOLC SSt 

stuff counts 



12 



wax 



nop 



J> 

«OJh Id 
sb1 
end 
sbO 

KOJ dec 

jr 
td 
inc 

Id 

cell 
jr 

H0_2 Id 



Id 

COB 

td 

cstt 
Id 

Id 

cell 

Id 

sb1 



HJOMD 

«utjsdle # 88 
WW.fXFF-Wi 
812 

89,0814 
114 

Ut0,89 
chksua 

89,810 

svll.tll 

89 

UI0 # t9 



it 

9th bit 0 state 



; 90 if no sore dots 
; tet byte 



12 

10 
6 
10 
6 
6 
10 
6 
6 



<192 2nd) totot 384 10 

12*166 
12 



89.SV11 
89 

UI0.89 



89,«X7E 
UNA,8X01 



; tet 1st 
; ..save 2nd 
; eospL 1st one 
; ..send it (close) 

; ..and add to cite 
: get original 2nd etc 
* 

? »*nd it total? 



; load flog byte 

s 

; 9th bit 1 state 



Id rO,#i5 
•8X5 dim rO,HOXS 
Id UI0,«9 



6 
6 
6 
10 

178 
6 
6 
10 

178 

10 

6 

10 

6 

10 

152 

10 
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614 


0363 






Id 


r9,f21 




611 




9A FE 


Hj0_3a 


djnz 


rt,KjD_3a 




At* 












617 


0367 


56 03 7F 




•no 


P3.8X7F 


; 3695 Tx off 


618 


036A 


08 EF 




Id 


rfi.UIO 




619 


036C 


46 EC FE 




or 


URC,#XFE ; UAXT 8x on 


620 


036F 


5F 




sbl 






621 


0370 


56 FA FE 




an* 


UHA,fXFF-X01 


r 9th bit 0 state 


622 


0373 


4F 




sbO 






623 


0374 


08 14 




Id 


R8,out_sdlc 


f pet SOLC byte 


624 


0376 


76 ea it 




ta 


Rfl,#X11 


' mi it protocol? 


625 


0379 


El 04 




ir 


nx,K0_4 


' ..yes 


626 


0371 


4E 




inc 


r4 • 


Inc sss 


627 


037C 


56 C4 07 




end 


r4,f7 


est fs 3 bits 


628 


037T 


AF 


N_0_4 


ret 




exit routine 



50 



629 

630 

631 

632 

633 

634 

635 

636 

637 

638 

639 

640 

641 

642 

643 

644 

645 

646 

647 

648 

649 

650 

651 

652 

653 

654 

6SS 

656 

657 

658 

659 

660 

661 

662 

663 

664 

66S 

666 

667 

668 

669 

670 



0380 

0383 
0387 
0388 
038E 
0390 
0392 
0394 
0397 
0S9A 



039F 
03A1 
03A3 
Q3A5 



03A8 
03AO 



E6 22 01 
6000 

•7 21 00 80 
C6 06 00 64 
56 03 FB 
SO C6 
66 IE 
08 02 
56 CO 08 
A6 CO 00 
ES F2 



tell_8039: 
td 

ls374 ex*j 
Ide 
low 
end 

Sloe: 



Id 
end 

cp 



stst_req,ffX1 

X8000 

Is374,r2 

rr6 # *100 

P3,«XFB 

rr6 

x # fiive_t*> 

rO,P2 

rO.STO 

rO,#ZD 

nz.Sloc 



; RR will go out on next pol I , 

; send status on poll after that 

; anything be y ond rem will do 

; stuff c e— e nd byte into buffer chip 

; adjustable t ieeout for 8039 to respond 

; bit 2 on port 3 <P27 on 0039} 



039C 46 03 04 



or P3,fX04 



80 C6 
68 00 
08 02 
56 CO 08 
Ao CO 00 
68 F2 
46 03 01 



Sloc2 decw 
Ir 
Id 
and 
cp 
\r 



give.up: 



* # ofve_up 
rO.P2 

ro.rccs 

rO.fXO 
x t Sloc2 

Stejbyte2 # «%01 ; 



0000 1000 

P12 wilt go low and stay that way 
indicating data has been read. 

Uhen found low, 
0000 0100 raise line to 0039 



and wait until 
p23 (P12 on 8039) 

comes back up. High state indicates 
the 8039 is ready to take another cmd 

successful coswvticetion to 8039 so 
a»rk scanner alive bit 



; tie* out 



0380 


AF 


ret 










* send Receive-teedy ■■■■■■■»■«« 


0381 




SENDtft: 






0381 


88 C5 


Id 


rO.rS 


; ay RRR 


0383 


F0 C8 


swap 


r8 




0385 


90 C8 


rl 


r8 




0387 


46 CB 01 


or 


r6,tf 




Q38A 


89 01 


Id 


out__buff*1,rC 




038C 




ccmaon_short: 






038C 


E6 00 4A 


~ Id 


out_buff,«X4A 


; ay addr 


Q38F 


EC 00 


Id 


rl4,*out_buff 


; point to buffer 


Q3C1 


CC 02 


Id 


r12,«2 


; count * 2 


Q3C3 


F6 02 F8 


call 


KSCOJT 




03C6 


AF 


ret 
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671 

672 

673 

674 

675 

676 

677 

678 

679 

680 

681 

682 

683 

684 

685 

686 

687 

688 

689 



Q3C7 

03C7 £6 01 OF 

osca u ro 



03CC 

03CC E6 01 63 
03CF 88 E8 



Send tot 



0301 
0301 
0304 
0307 
0309 




Id out txrff+1,fX0F 
ir 



Send KSA 



out_twff*1,8X£3 
i short 



030C 
0300 
03E0 



56 EC FO 
46 D3 80 
OC OE 
OA F£ 
FF 
5F 

46 FA 01 
4F 



SENO_EOP: 



Send EOP 



IU7 



691 
692 
693 
694 
695 
696 
697 
698 
699 
700 
701 
702 
703 
704 
70S 
706 
707 
708 
709 
710 
711 
712 
713 
714 
715 
716 
717 
718 
719 
720 
721 
722 
723 
724 
72S 
726 
727 



03E1 E6 EF 5A 



03C4 

03E6 

03E6 

03E8 

03E9 

03EC 

03EE 

Q3F1 

03F2 

03F5 

Q3F6 



03F7 
03F9 
03FB 
03 FD 
03FF 
0402 
0404 
0406 
0408 



040F 
0411 
0413 
0415 
0417 
0419 
041C 



OC 11 

OA FE 
FF 

56 03 7F 
88 EF 
46 EC FE 
5F 

56 FA FE 

4F 

AF 



td 

dim 
nop 
sbl 
or 
&bO 

Id 



Id 

*loc_det: 

djnx 

nop 

and 

id 

or 

sbl 



URC.8XFF-X02 
»3,#X80 
R0,#14 
80,U17 



or UKA,mi 



Ul 0,«5A 

r0,#17 

rO,8loc_del 

P3,fX7F 

r8,U!0 

tXC 9 *XFE 



70 C3 

•2 9A 

08 C9 

FO C9 

56 C9 FO 

82 90 

38 C9 

FO C9 

56 C9 OF 

82 98 

A8 C9 
98 C3 
88 C9 
FO C9 
EO C9 
08 C9 
56 CO 07 
56 C9 F8 



end UU.tXff-XOI 
SfaO 

ret 



***** Checxsu* routine 
Uses fttIO for chltsuas. 
Current byte in 89. % 



; ROL 



; usa 



receiver off 

P37 on (3695 xaitter) 195 to nit 
MOT hex # 10 eye 

delay for atJiile n*10 C12 last) 
6 
6 
10 
6 

10 total 192 
10 
ii*12 



9th bit 1 state 

send EOP 
need 195 cycles 



3695 Tx off total 198 10 
trash input? 
UttT tx on 

°th bit 0 state 

12/24/86 



: push 


r3 


; to 


xor 


89,R10 


; 6 


Id 


80,89 


; 6 


swap 


89 


; e 


and 


89,#%F0 


; 10 


xor 


89.80. 


; 6 


id 


83,89 


; 6 


swap 


89 


; 6 


and 


R9,fX0F 


; io 


xor 


89,811 


; 6 


Id 


810,89 


; 6 


Id 


89,83 


; 6 


id 


811,89 


; 6 


swap 


89 


; 6 


rr 


89 


; 6 


Id 


80,89 


; 6 


and 


80,8X07 


;io 


and 


89,fXF8 


;io 
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778 


041F 


82 A9 


729 


0421 


82 80 


730 


0423 


SO C3 


731 


042S 


AF 


732 






733 


0426 


4A 00 10 


734 






73S 






736 






737 


0428 




738 


0428 


46 02 20 


739 






740 


042E 


46 03 04 


741 






742 


0431 


5F 


743 


0432 


E6 FO 00 


744 


0435 


E6 F1 20 


74S 


0438 


4F 


746 






747 


0439 


1C 05 


748 






749 


0438 


86 13 00 


750 


043E 


E6 F4 10 


751 






752 


0441 


AF 


753 






754 






755 


0442 


AF 


756 


0443 


E6 06 CO 


757 


0446 


E6 F4 00 


758 


0449 


56 02 OF 


* >T 




ca tr rc 
to rt rr 


760 






7A1 






(K 






TXT 






TXX 






765 






tax 






TAT 




It 


7/« 

#6o 






TAO 






T7n 




Or 


TT1 






TT» 






773 


0454 


CD 


774 






775 


0455 


03 23 88 


776 






777 


0458 


52 96 01 2 


778 






779 


045C 


41 


780 






781 


0450 




782 


0450 


6C 00 


783 


04SF 




78* 


04SF 


6C 02 



POP 

ret 



810.19 
til , to 

r3 



; 6 
; 3 
; io 
; u 



hdr: 



e*:_ready: 
or 



sbl 
Id 
Id 
sbO 



Id 



Id 
Id 



ret 



fnt_p33: 



sbO 

Id 

Id 

•Hi 

Id 



X4e,X00,%10,»>1,X0Q 

; device address, S0LC byte, 

; end default status bytes C enabled) 

P2,fX20 ; be sure P2S Is high state 

; 0010 0000 
f>3,*X04 ; also p32 high (0000 0100 > 



DCH,tX0 ; OKA high byte 

0CL,fX20 ; DMA low byte, will int when tero 



rl.fC ; used to point Into register file, by CM 

; en int wilt bold asg length •*out_len 
out_len,f%0 ; clear sea tph or e to cc a a la iication side 
NOc.fXId ; load/reload for handshake operation. 

; note-do not split this 



; hdv derived f roa mob en last byte 
; set register bank pointer 

RP0,fXC0 ; note, r1 will contain M of char+1 

K0C,«XO ; turn off handshake end set TO low 

f>2,*Xdf ; 1101 1111 P25 ■ TO 

P2A!P,«Xff ; reset int pending reg (see 8.7.4) 

; in euperO book 



; Have EOT. rl is size of output asg. (buff oust be 9 0) 
; semaphore to the 

; UART code via out_len. (EOT not part of ssg> 



Id 



iret 



rl 

out_len.r1 



tea for EOT byte 
aeaaphore to UAtT code (out_len ne 0> 
will find thia**et and 



J DATE 

08 

•PART NUMBER 
08 

;REV 



03H,23Jf,88H 

•R»,96H # 01,59 

•A» 



vec 2 



Id r6,#X0 
td r6,«X2 
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785 0461 w ^ 

786 0461 6C 04 Id r*,*U 



787 0463 



793 0469 



795 0468 



797 0460 

15 798 0460 6C 12 

799 046F 



801 0471 



20 804 0473 6C 18 

80S 0475 



809 0479 
25 810 0479 6C IE 



6H 0461 SF 
815 

*> 816 

817 0482 
817 0482 



35 



788 0463 6C 06 Id r6,«6 

790 0465 6C 08 " Id rtf «5 

791 0467 „*c c 
10 792 0467 6C0C Id r6,«e 



wtce 



794 0469 6C0E Id *,« 



™ *" Id r6,«l0 

v«e_12 



:_10 

4d r6,#X12 



v«c_K 



2? * U = td r6.«14 



16 



0471 Id r6.fX16 

803 0473 w 18 



W r6,*X18 



806 0475 6C1A Id 

807 0477 w 1e 

808 0477 6CK Id rt .«1c 
vec^lc 



Id r6,«X1e 

«1 0478 7CFF ld r7#fxff 



812 0470 79 FC ld - 

813 047F 79 FO JJ £££ ' *° — - 
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Defined 



SyboX Hue 



70 



75 



20 



25 



30 



35 



40 



45 





CODE 




0000 


rr« 

U9 


0A7A 




0000 
0023 


437 


EC_«tt 




0237 


317 


EttOI 




0174 


S20 


ER820 




0179 


323 


Ett23 




0175 




EU24 




0183 




tliO 




0188 


574 


NOX 




UMO 


611 


HQOCS 




035 F 


547 


nsgjout 




(hero 


561 


••JOJO 




tUcv 


555 


•LP- 1 




0334 


595 


•LP-* 




0342 


615 


noju 




036S 


628 


"A* 




03 7T 


145 




a 


0001 


142 


tRentr 




0021 


Prm 


ftSECT 




0000 


682 


SEH>_Ctt> 




0301 


677 


SEKDJKA 




03 CC 


672 


SEKDJMX 




03C7 


658 


SEKDJRR 




0381 


U6 


u. 


0002 


152 


St«_byte1 


m 


0002 


153 


St»_byte2 


m 


0003 


1S4 


St*_byte3 


* 


0OO4 


394 


T0126 




0180 


242 


adrfrcd 




00M 


183 


chksflO 




0091 


185 


Cfcfcsal 




0097 


192 






0OA2 


197 






00A£ 


710 






03 FT 


403 


CH51 




oi n 


409 






0200 


415 


cadi 




02OE 
038C 


664 

273 


r i— rn_«hoft 
creO 




0123 


276 


crcl 




0121 


156 


delayl 




0025 


157 


delay2 




0026 


10 




• 


0000 


654 






0380 


175 


fadlp 




0087 


733 


hdr 




0426 


ICO 


injbuff 




0017 


138 






0015 


139 






0016 


754 


4m_p33 




0442 


551 


llll 




0300 


686 


UI7 




0309 


632 


t«374 


• 


BOOO 


248 


me 




oort 


737 






0428 



t«f« 

162 164 816 
498 



438 


491 


424 




250 




282 


284 


267 




300 




306 








611 




464 


499 


572 


579 


593 




586 




615 




625 




370 


375 


354 


517 


130 


159 


508 




466 




462 




475 




359 


465 


411 


417 


199 


2U 


315 


318 


238 




196 




191 


193 


190 
195 




277 


560 


398 
404 




410 




674 


679 


265 




279 




637 


646 


178 




174 




209 


275 


3U 


317 


273 




13 




551 




686 

633 




244 




3S6 


377 



534 



486 

522 



467 
216 
321 



502 
528 



515 536 



220 



399 405 
327 330 



651 



560 592 600 605 



288 301 
320 323 



307 
326 



350 
329 



371 
346 



385 



393 421 



50 
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Defined 



381 

370 noSvtM 

«9 ok 

144 online 

141 eur_ct*t 



tywbol Urn* 



Value 

otcc 

OIK 
024 f 
0000 
0020 



135 



oat_buff 



10 



15 



20 



25 



30 



35 



40 



45 



136 


eut_ten 


0013 


13? 


out_tdlc 


0014 


253 


P-4-* 


0105 


465 


Pj" 


02SA 


471 


P«4b 


026A 


478 


PjU* 


0279 


490 


P-4c 


0294 


506 


p_4d 


0288 


513 


P>« 




522 


P.4«c 


0205 


527 


P-4f 


02DE 


301 


pall 10 


0159 


312 


potm 


016F 


211 


pot 12 


OOtA 


234 


poll 3 


000E 


238 


polU 


O0E6 


259 


pel 15 


010E 


262 


poU6 


0113 


266 


poll 7 


011O 


296 


pal 19 


0150 


452 


polijmc 


024F 


160 


pallet 


0051 


443 


polled 


0230 


230 


pon_ovr 


0009 


220 


tenrjan 


oocc 


ISO 


EfttJM 


0024 


17 


•tort 


0020 


148 


ttat.req 


0022 


433 


•tot_««t 


0231 


158 


svll 


0027 


421 


«y*_ced 


0210 


430 


«y*.re*et 


022E 


630 


tett_8030 


0360 


205 


mrt_Mta 


0081 


781 


v«c_0 


0450 


795 


vec_10 


0460 


797 


vec_12 


0460 


799 


*ec_14 


046* 



805 
807 
809 

783 
785 

?8r 

789 
791 



vec_16 
vec_1fl 

veejle 
w2 
wecj4 
*ec6 
voc 8 



0471 
0473 
0475 
0477 
0479 
04SF 
0461 
0463 
0465 
0467 



370 
351 

360 
345 
535 
480 
678 
506 
581 
266 
461 

465 

473 

479 

492 

507 

520 

515 

294 

295 

232 



References 

374 



381 


461 


521 




361 


376 


460 


468 


537 








493 


494 


495 


496 


529 


749 


767 





485 487 501 503 
500 530 663 665 



514 524 



666 673 



623 



308 
236 



240 



246 450 



255 260 

264 
290 
448 



241 
215 
213 
391 

217 
423 
596 
395 
426 
223 
349 
435 

12 

14 

14 

14 

14 

15 

15 

15 
IS 
12 
12 
12 
13 
13 



444 
218 

472 

226 
425 
601 



221 
474 
434 



469 678 483 



400 


406 


412 


418 


366 


379 


362 


387 


439 


463 


470 


476 



631 



407 
504 



413 
509 



416 
525 



41? 
538 



428 



50 



55 



22 
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C* fined 



%y*x>l Nik 



ttfercrce« 



793 vec_t 
Sat we.iajon 



0469 
0TD2 



13 
381 



5 



Line* AstMfcied : 617 



Asscably Error* : 0 



10 



The control software stored in interface memory means 218 may be exemplified by the following listing. 
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ISIS-!! HCS-46/UPI-41 MACRO ASSEKtLEK. V4.2 
CMA095 ASSEKSLEO 2/22/M IT I LACE ISAACS 



PACE 



tOC Of J 



0001 



0002 
0002 



0010 
0020 



0010 
0020 



0002 
0005 



LIVE 

1 ; 

2 ; 

3 ; 

tl 

6 : 
7; 
« ; 
9 ; 

10 ;« 

11 t 

- 12 ; 
« « ; 

- H ; 

• 15 i 
« 16 ; 

• 1/; 

- « ; 

« 19 ; 
« 20 ; 

• 21 • 

- 22 ; 

- 25 ; 

• 2* ; 
« 25 ; 

- 26 ; 

- 27 ; 

■ 28 ; 

• 29 
30 S 

■ 31 . 

• 52 ; FIU 
« 33 ; 

• 34 • 

• 3S ; 

■ 36 • 

• 37: 



SOURCE STATEMENT 



FILE: CMA09S.SRC 04-16*67 MEW TAUSSIG 

FIftHUAKE TO THE 730SL SCANNER 
WILL t£A0 UPC-A,E AMD EAN/JAN8.13 
ItM-4683 SERIAL I/O CHANNEL, l/F OPTION #95. 

S-P PART HUK8ER R96-01S3 



MAY 1983 



«etuoe<sFisicisTRr.sRc> 

FILE: MISTRT.SRC 01-23-87 11:50 tot ACT IS 
IVR053 - 750F 10 DEMO, SP-0C # VERSION 03 V/ 2vo CHECK 
FVR053 - 750F FT DEMO, SP-OC. VERSION 03 W/ 2ND CKEDC OCT 1983 
6KA053 - 750SL, SP-OC/NCR-OCIA. READS ALL UPC.EAN ft JAN JIM 1986 
CHA069 - 75DSL. SUEDA PARALLEL/OKRON , READS ONLY A,E.8,13 OCT 1986 
CMA066 - 750SL, It* -OCR/FUJITSU m 1966 



750SL. ItM-CCR/FUJITSU 

ItK-OCR READS ONLY A,E,8.13 
FUJITSU URL ALSO READ VERSION 0 



IFTP95 - 750F. I8M4663 SERIAL I/O CHANNEL. ONLY A,E,8,13 APR 1987 



tNCUJDEQFl3FT0£FS,SRC> 
FTOEFS.SRC 



12-09-66 13:50 
SYSTEM DEFINITION 
1 DEFINITION: 



tOt ACT IS 



* 


38 ETEST 


EOU 


OOOOOOOI t 


■ 


39 








40 ETKARC 


EOU 


000000 101 


* 


41 EKTREt 


EOU 


ooooooiot 


m 


42 EP12 


EOU 


0000010M 


■ 


43 CP13 


EOU 


ooooiooot 


B 


44 ELASOt 


EOU 


oooioooot 


B 


45 ECOLT 


EOU 


ooiooooot 


■ 


46 EtOLT 


EOU 


oioooooot 


B 


47 ETONE 


EOU 


lOOOOOOOt 




• F 1 0 -O-ENAt LE TEST MODE 
;M0-O-I/F RESET 
-P1 1-0- TEST KARR 
;P11-0-EKAtU MOTOR 

-P12-0-KAK0SNArE FOR SUPER'S TO 8039 I/F 
;P13-I-M00E CONTROL FOR 58-603? I/F 
;P14-0-0ISAtLE LASER 
;P15-0-EMAtLE COCO LIGHT 
;P16-0-EHAtLE NAD LIGHT 
•P17-0-T0NE tIT (AC COUPLED) 



-P20-P23 EXTERNAL PROGRAM ADDRESS LINES 
-P24-I-VLS! DATA SENT* CUSED ONLY FOR TEST) 
;P25-t-MOTOR UP2SP0 SIGNAL OSOSL ONLY) 
;P26-0-VLSI POUER RESET* C750SL ONLY) 
;P27- 1 -HANDSHAKE fOR SUPER -6 TO 8039 I/F 

; TO- 1 -MANOSMAKE FOR 8039 TO SUPER -8 I/F 



64 EPARRD EOU 00* 

65 ESRRD EOU 01N 

66 CFRRST EOU 01 K 

67 EOCIA EOU 02H 
66 EFCRST EOU 03N 
69 EPROEC EOU 04H 

» ; 

71 ; PARITY DECODE tYTE 

72 : 

73 EOECOO EOU 000011 lit 

74 E0EC8L EOU 00001 OlOt 

75 E0EC8R EOU 0000101 It 



;t - PARITY tYTE 

;« - SEGMENT REGISTER 

& * 'NAME RESET (CLEARS SEGMENT) 

?R/V - OCIA REGISTERS 

;W - RESET FCA 

;R - DECODED PARITY tYTE 



;0-9 IS DECODED DIGIT 
;A IS 6L 
;t is 6R 
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I St 5- It MCS-48/UPJ-41 MACRO ASSEMBLER. V4.2 
CMA09S ASSEMBLED 2/Z2/88 tT ILAJCE ISAACS 



PACE 



IOC OBJ 




LIKE 


SOURCE 


STATEMENT 


0000 


a 


77 EDECAt 


EOJ 


O0O011O1I 


OOOE 


■ 


78 EDEC8E 


ECU 


000011108 


000 F 




79 EDEC8F 


EOU 


000011118 


0010 


a 


60 EDECE 


EOU 


000100008 


0020 




81 EPECO 


EOU 


001000008 


0040 




82 EDECBC 


EOU 


010000008 


MUM 


• 


83 EDECS7 


EOU 


100000008 






B4 ; 










85 ; SHIFT REGISTER READ 




* 


W ; 






0O0F 




87 ESRCKR 


EOU 


000011118 


0010 


• 


88 ESR4CR 


EOU 


000100008 


0020 


■ 


09 CSRF13 


EOU 


001000008 


0040 


* 


90 ESRPER 


EOU 


010000008 


0080 


a 


91 ESRSDT 


EOU 


100000008 






92 • 








■ 


93 ; FLAG REGISTERS: 




■ 


94 ; 








m 


95 J RSO-84 


SCAR FLAGS 




m 


96 ; 






0001 


m 


97 ESCNG 


EOU 


000000018 


0002 


m 


98 ER481 


EOU 


000000108 


0004 


m 


99 ER482 


EOU 


000001008 


0008 


a 


100 ES8FUL 


EOU 


000010008 


0010 


* 


101 ER4R4 


EOU 


000100008 


0020 


* 


102 EBFRCO 


EOU 


001000008 


0040 


« 


103 ER4S4 


EOU 


010000008 


0080 


m 


104 ER487 


EOU 


100000008 



;D IS AR 

;E IS MOT USED 

;F IS *NO DECODE" (ERROR) 

;E-TAG 

;D-TAC 

♦RACTUARD CAPTURE 
;MOT USED. ALUATS«1. 



;8CD CHARACTER 
;4-C8A8 CAPTURE 
; FRAME 1 OR 3 CAPTURE 
; PERIODICAL CAPTURE 
;SOATA BYTE AVAILABLE 



105 
106 
107 ; 



; SCANNING (FLAG CCFCA TO GET SEGKEMTS) 
;MOT USED 
;NOT USED 

;SEND m)tn* MAS DATA TO SEW) 
;K0T USED 

;RUFMAN REQUEST FLAG 
;R0T USED 
?«OT USED 



R80-R6 VERSION POINTER/FLAG 



0000 


- 108 EVEROO 


EOU 


00* 


0001 


• 109 EVERA 


EOU 


01H 


0002 


- 110 EVER 13 


EOU 


02N 


0003 


- Ill EVE RE 


EOU 


03H 


0004 


« 112 EVER8 


EOU 


04N 


0805 


•113 EVER01 


EOU 


OSH 


0006 


- 114 EVER02 


EOU 


06K 


0007 


* 11$ EVER03 


EOU 


07H 


0008 


« 116 EVER04 


EOU 


08* 


0009 


* 117 EVEROS 


EOU 


09N 




■ 118 ; 






0010 


* 119 ER684 


EOU 


000100008 


0020 


« 120 ER685 


EOU 


001000008 


0040 


• 121 ER686 


EOU 


010000008 


0080 


« 122 ER687 


EOU 


100000008 




« 123 ; 








« 124 ; SCANNER CONFIGURATION 8 




• 125 ; 






0001 


« 126 E4CM2S 


EOU 


000000018 


0002 


« 127 E6CM2S 
« 128 


EOU 


000000108 



•NO VALID VERSIONS 

;UPC-A 

;EAN-13 

;UPC-E 

;EAN-8 

;UPC-01 

;UPC-02 

;UPC-OJ 

;UPC*04 

;UPC-OS 

;NOT USED 
;NOT USED 
;NOT USED 
;NOT USED 

* CONFIG 

% ;4 CHAR SEC 2 SCAN 8IT 
;6 CHAR SEC 2 SCAN SIT 



* 129 



TIMER CONSTANTS: 



0004 


■ 


130 ; 

131 E80KS 






m 


EOU 


4 


OQOA 


m 


132 E200KS 


EOU 


10 


0018 


w 


133 E480KS 


EOU 


24 


0032 


• 


134 E1000N 


EOU 


SO 


0064 


S 


135 E2000M 


EOU 


100 




m 


136 • 






0004 


m 


137 ECOTON 


EOU 


4 


0014 


u 

m. 


130 ECOTON 
139 • 


EOU 


20 


0028 


K 


140 ETONCT 


EOU 


40 


FFFA 


« 

M 


141 ETON FQ 

wz ; 


EOU 


-6 




m 


143 I SUPER-8 INTERFACE 


0008 


m 


144 ESUP8 


EOU 


08* 



0011 
0012 



;60 MSEC 
;200 MSEC 
;480 MSEC 

;1000 MSEC, 1*0 SECOND 
;2000 MSEC, 2*0 SECOND 

;80 MSEC, 0000 TORE ON TIME 
;400 MSEC, RAO TOME ON TIME 

J TONE COUNT (CYCLES/20MS) 

;TOME FREOUENCT CONSTANT (500US) 



« 145 ; 

« 146 ; COMMUNICATIONS ROUTINE CONSTANTS 

« 147 EMSNBT EOU OUR # *MISSCAN 8TTE FOR SEND SUFFER 

« 148 ETRM8T EOU OCCR ; TERMINATION 8TTE FOR SEND SUFFER 

« 149 ; 

m 150 ; COMMUNICATIONS ROUTINE RECEIVE COMMANDS (SUPER'S TO 8039) 

e 151 ENSCAN EOU 11N ?ENA1LE SCANNING (LASER ON) 

• 152 OISCAN EOU 12R ;0!SA8LE SCANNING (LASER OFF) 
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iff™ 1 «"«WI-41 MACRO ASSEMBLER, V4.2 
CHAWS ASSEMBLED 2/227M IT SLAKE ISAACS 



IOC OEJ 

0018 
0032 
0077 



0008 
0Q2A 
0016 
002A 



0030 
0034 
0033 
003A 
OO50 



0000 
0000 
0004 
0005 
0006 



LIME 



SOURCE STATEMENT 



0008 



0018 
0018 
001C 

oo to 

001E 
COIF 



0020 
0020 

0024 
0024 
0028 
002C 
002D 

002E 
0031 
0034 
0035 
0012 

0036 
0036 
0038 
003A 
0Q3C 

003C 
0Q3E 
0040 
0041 

0042 
0044 
0046 
0047 



004C 



• 154 OlftEEP ECU ie* 

■ 155 COMRST EOU 32* 

« 156 IFRSMC EOU 77H 

- 157 : 

9 FLATT0P TIfC CONSTANTS 

-> 150 EUAIT EOU 8 

COO 50-EUAII 

EOU 30-EWMT 

EOU 50-EUMT 



PAGE 



^DISABLE TONE AFTER COCO tCAO 

;RES£T SCAJCNEt CCHHANO 

,-I/f KOH CHECKSUM COCO -COMMAND- 



; value rot no secs- wit 

;CD-LI ON IKIT CONSTANT 

^DOUBLE AEAO WAIT, I KM -OCR, 0.6 SEC 

TOOUtLE AEAO UUT, FUJITSU, 1.0 SEC 



160 C COt. TV 

161 EDRDLT 

162 EDRDLF 

163 ; 

1« TSEcT 715™* ££ " m TEST 

EOU J4K 

IS 22 • scoc * t ««» 

; HORSE CONTJtOL 8TTE 



- 466 TSEC2 ™ ^ FOMENT SUFFER 

« 167 TCNT1 
» 168 TCNT2 

* 169 TSCSUF 

* 170 EKCNTL 

* 171 

" f 0ATA WWT MAP - NAM * 6039 NEEDED 

174 | REGISTER lANC 0 (HON- INTERRUPT USEACEJ 



• 175 otC 

• 176 NR80: OS 
« 177 SOfFLG: OS 

• 178 DCTIMR: DS 

• 179 VERFLC: DS 

• 180 TIMREC: DS 

• 181 ; 
■ 182 ; STAC* AREA 

• 183 STAOCz OS 16 
« 154 . 

105 ; REGISTER 8AWC 1 



OOOK 
4 
1 
1 
1 
1 



• 186 MRU: DS 3 

• 187 MRS 1*3: DS 1 
- 188 MRS1R4: DS 1 
« 189 TOHCHT: DS 1 

• 190 TONLTN: DS 1 

• 191 TASAVEs OS 1 

• 192 ; 
« 193 ; FREE MEMORY AREA 
« 194 ; 

195 J SEGMENT DUFFERS 



;*0 TO RJ - SCRATCH 

;K4 * SCAN FLAGS 

;R5 - DOUBLE DEAD TIMER 

Xt6 - VERSION POINTER/FLAG 

;t7 - GENERAL PURPOSE TIMER/COUNTER 

?8 LEVELS OF SUBROUTINES ALLOUED 

< INTERRUPT USEACEI 

;R0 TO R2 - SCRATCH (NOT USED) 
*RJ - COCO READ TONE DISABLE FLAG 
?R4 - NOT USED 

;*5 - TONE CYCLE COUNTER CCTCLES/20MS> 
;«6 - TONE LENGTH COUNTER 
Jt7 - TIMER -A- SAVE REGISTER 



• 196 SECSUf 

• 197 SCNDUF: OS 
« 198 ; 

• 199 8F6CST EOU 
« 200 L6S1: DS 



S 

4 



DS 



EOU 



EOU 
DS 



DS 



* 201 L6S2 

* 202 L6SCHT* DS 
« 203 L6STOT: DS 

* 204 : 

« 205 R6S1: DS 
- 206 R6S2: DS 

* 207 R6SCNT: DS 

■ 208 R6STOT: OS 

* 209 8F6CNT 
« 210 ; 

* 211 RF4CST 

* 212 L4S1: 

* 213 L4S2r 

■ 214 L4SCNT: DS 

* 215 L4STOT: DS 

* 216 ; 

- 217 R4S1: DS 

- 218 R4S2: DS 

■ 219 R4SCMT: DS 
« 220 R4STOT: OS 

■ 221 ; 

« 222 NISI: DS 

■ 223 N1S2; DS 
" 224 NlSCNTr OS 

■ 225 N1STOT* OS 

* 226 ; 

• 227 N2S1: OS 

* 228 M2S2: OS 

• 229 N2SCNT: OS 



;SCAN DUFFER 



;SCAN 1 DUFFER 
JSCAN 2 DUFFER 

;PACKE0 SCAN COUNTER ( SCAN2/SCAN 1 ) 
; TOTAL COUNTER 



S-DF6CST 

S 

2 
2 
1 
1 



2 
2 
1 
1 

2 
2 
1 
1 

2 
2 
1 
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ISIS-lt MCS-48/UPI-41 MACtO ASSEMBLER, V4.2 
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PACE 



IOC OBJ 



LIME 



STATEMENT 



70 



75 



20 



25 



30 



35 



40 



45 



50 



55 



OWE 
0050 
0052 
0055 

0054 
0056 
0056 
0059 

005A 
005C 



OOSF 

0060 
0062 
0064 
0065 
0030 



0066 



0067 
0067 



0012 
0078 



0079 

007C 

0070 
0070 



0007 
0007 



2 
2 
1 
1 

2 
2 
1 
1 

2 
2 
1 
1 

2 
2 
1 
1 

S-BF4CST 



• 231 ; 

■ 232 K3S1: OS 

- 233 K3S2: OS 

• 234 N3SCNT: OS 

• 235 M3ST0T: OS 

- 236 ; 

• 237 N4S1: OS 

- 236 N4S2: OS 

• 239 N4SCNT: OS 

• 240 K4ST0T: OS 

• 241 ; 

• 242 KSS1: OS 
« 243 KSS2: OS 

■ 244 N5SCNT: OS 

• 245 KSSTOT: OS 

• 246 ; 

• 247 M6S1: OS 
« 246 H6S2: OS 

■ 249 N6SCNT: OS 

- 250 N6ST0T: OS 

• 251 BF4CKT EOCI 

• 252 ; 

« 2S3 ; scmo turn* 

• 254 SSfMIT: OS 1 
« 2S5 ; 

• 256 SCUT AO ECU S 

■ 257 SJUf z OS 16 

• 2S6 S8STIT EOU 2*SSUf 

• 259 SSUfSZ EOU S-SNUF 

- 260 StFEKO EOU S-1 

• 261 ; 

- 262 ; VORC AREA USED ST EN0D10 ROUTINE 

- 263 WRKSUF: OS 3 

- 264 ; 

• 265 ; DOUBLE READ LABEL OATA SUM LOCATION 
« 266 DRSUM: OS 1 

« 267 ; 

« 266 ; SCANNER CONFIGURATION BTIE LOCATION 

• 269 CONFIC: OS 1 

« 270.; 

• 271 LSTUSO EOU S-1 ;LAST USED RAM LOCATION 

272 • FVECTR.S8C INCLUDES f TIMER. SRC 

273 S INCLUDE* :F1:FVECTR.SRC> 

» 2« ; 



; POINTER 

; FIRST OATA BYTE ADDRESS 
-OATA BUFFER 

; PACKED BUFFER START POINTER 
;RTTES IN SEND SUFFER 
;LAST RAM LOCATION IN BUFFER 



275 ; FILE: FVECTR.SRC 06-16-86 13:00 BOB ACT IS 

276 ; 

277 ; RESET AND INTERRUPT VECTORS 
276 ; 



0000 


m 


279 ORO 


0008 


; RESET TRAP 


0000 E5 


m 


260 RSTTRP: SEL 


M80 




0001 649F 


m 


261 JKP 


POUUP 


;C0 START PROGRAM 






262 : 






0003 


m 


263 ORG 


003H 


; EXTERNAL INTERRUPT TRAP 


0003 93 


m 


264 1NTTRP: RETR 




; RETURN FROM SPURIOUS INTERRUPTS 



285 ; 

286 ORG 

287 TIMTRP EOU 



0007 05 
0006 AF 
0009 F£ 
OOOA 961F 



U 
1« 
1> 
1« 
1* 
1« 
1- 

w 
1« 
»■ 
%• 
1« 
1* 
1* 
1« 
1- 
1* 
u 



286 % 

269 r 

290 ; 

291 ; 

292 ; 

293 ; 

294 ; 

295 ; 
Z96 ; 
»7 ; 

298 ; 

299 ; 

300 ; 

301 : 

302 ; 

303 TIMER: 
304 
305 
306 



INCLUDE* :F1 :FTIMER*SRC> 



; INTERNAL TIMER INTERRUPT TRAP 
;C0 TO TIMER ROUTINE 



FILE: FTIMER.SRC 10-06-66 15:40 BOB ACT IS 

FUNCTION: IF NO TONE IN PROGRESS, DECREMENT RBO-R5 t R7 UNTIL 0. 

IF TONE IN PROGRESS # DECREMENT RB1-R6 UNTIL 0. 
ENTRTx RB1-R6 » TONE LENGTH IN 20«S OF MS. 
RB1-R4 « |tM-4663 CLOCK TIMER 
RS0-R5 • DOUBLE READ TIMER COUNTER 
RB0-R7 ■ GENERAL PURPOSE TIMER COUNTER 
EXIT: RS1-R7 • ACCUMULATOR SAVE 

RB1-R5 « TONE CTCLE COUNTER 
RI1-R6 * DECREMENTED UNTIL 0 
RB1-R4 • DECREMENTED UNTIL 0 
RtO-RS « DECREMENTED UNTIL 0 
RS0-R7 • DECREMENTED UNTIL 0 
SEL RB1 

NOV R7,A -SAVE A 

MOV A.R6 ;CET TONE COUNTER 

JSZ TIKE30 ;JUMP IF TONE IN r 
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IOC OtJ 

oooc rc 

OOOO C610 
000F CC 

0010 CS 

0011 FF 

0012 C615 

0014 CF 

0015 FP 

0016 C619 

0018 CD 

0019 2306 
0018 62 
001C OS 
0010 FF 
001E 93 

001 F 09 

0020 997F 
0022 F226 
0024 8980 

0026 55 

0027 EOU 



0028 FC 
002C C62F 
002E CC 

002F CS 

0030 FF 

0031 C634 

0033 CF 

0034 OS 

0035 C£3I 
0037 8980 
0039 0419 

0031 23FA 
0030 0410 



LIME 



SOURCE STATEMENT 



003F 8802 

0041 80 

0042 0301 
0044 96S6 

0046 27 

0047 07 

0048 CS 

0049 85 
004A 95 
0048 A3 
004C 8830 
004E 8810 

0050 990F 
0052 8952 
0054 840A 

0056 83 

0057 A3 

0058 83 



1- 308 MOV 
1- 309 JZ 
U 310 OEC 
1- 311 ; 

1« 312 TIME 02: SEL 
1- 313 MOV 
1» 514 JZ 
1« 315 OEC 
1« 316 ; 

1« 317 TIMEOS: MOV 
1« 318 jz 
t«.51V OEC 
1« 320 ; 

1« 321 TIKE10; MOV 
1- 322 TIKE20: MOV 
1- 323 SEl 
1- 324 MOV 
1- 32S KETR 
1« 326 ; 

1« 327 TIKE30: IV 
1* 328 AMI 
U 329 JS7 
1- 330 ORL 
1» 331 ; 

!• 332 TIME40: STRT 
1- 333 DJN2 
1* 334 MOV 
1« 335 ; 

1* 336 MOV 
1" 337 JZ 
1» 338 OEC 
U 339 ; 

U 340 TIME45: SEL 
1* 341 MOV 
»« 342 JZ 
1« 343 DEC 
1» 344 ; 

1« 345 TIMESO: SEL 
1* 346 OJMZ 
1» 347 ML 
1* 348 JNP 
1« 349 ; 
1* 350 TIME60 
U 351 
352 8 

- 353 ; 

- 354 ; 
■ 355 ; 
-356 ; 

- 3S7 ; 
« 358 ; 
« 359 ; 

- 360 ; 
-361 ; 
« 362 ; 

• 363 SOATA: MOV 

• 364 MOVX 

• 365 - 

« 366 S0ATA4: XRL 
« 367 JNZ 
« 366 SDATAX: CLK 
« 369 MOV 
« 370 SEL 
' 371 OX 



A,R4 
TIKE 02 
■4 

tto 

A, 17 

TIKEOS 

87 

A # RS 

TIME10 

85 

A,8-2S0 
T,A 
811 
A.R7 



A,P1 

P1,*2SS-ET0NE 

TIKE40 

P1,tETOW£ 



R5,TIK£60 
R5,#ET0KCT 

A.R4 

T1HE4S 

84 

810 

A,R7 

TIHESO 

87 

881 

86,T!HE60 
Pl.fETOKE 
TIME10 

A,8ET0NF0 
TIME20 



FACE 



,JW IF It* -4683 TIKES - 0 



-*W> IF TIMER COUNTER « 0 



;JUt» IF DOUBLE BEAD TIME8 « 0 

•20MS/80US « 250 
-SET TIMER COUNTER 

•RESTORE A 



;C£T TONE BIT 

;SET TONE 8IT LOW 

-JUMP IF TONE SIT OAS 8 I CM 

;S£T TONE BIT NIC* 

; CLEAR THE PRE SCALAR 
•JUMP IF MOT 20NS YET 
;S£T TONE CTCLE COUNTER 

;JUMP IF IBN-4663 TIMER - O 



;JUKP IF TIMER COUNTER * 0 



IF TONE NOT FINISHED 
; LEAVE TONE LINE NICK 



;SET TONE F8E0 CONSTANT 



INCLtDEC:F1:FS0ATA.SRC> 



FILES FSDATA.SRC 10-06*06 14:05 BOB ACT IS 
ROUTINE: SDATA 

FUNCTIONS CLEAR TKE SOATA 8YTE THEN RETURN » 

ENTRT: 880^ ^ *° T lNPLCME,<T °* «SET FROM SOATA 

SOATA REAOT IN FCA 
EXIT: USES 80, A 



80,#E0CIA 
A.3R0 



; ENTERED FROM GCFCA ROUTINE 
;CET SOATA 8TTE 



CPL 
MOV 



- 372 

• 373 
« 374 
-375 

• 376 ANL 
■ 377 ORL 

• 378 JMP 

• 379 ; 

• 380 SDATA9: RET 
381 



A,#EJCCNTL 
S0ATA9 
A 

PSV,A 
880 
FO 
FO 
F1 

R0,#TS£C1 
83.816 

P1,«2S5-EC0LT 

M£BOtT«€LAS06*EHTREB ;SOLT 8 MOTOR ON, LASER OFF 
TMOOS -BOLT INDICATES CNTL 8TTE RECEIVED 

JSFURIOUS SDATA 



•JUMP IF MOT THE MORSE CONTROL BYTE 
; CLEAR STAC* POINTER/RETURN LINKAGE SINCE UE 
;WLL JUMP INTO MORSE TEST AMD STAT THERE 
;SETUP FOR MORSE TEST ENTRT 

;S£T FLAG FOR CONTROL 8TTE RECEIVED 



362 TBOPCO 
383 



ii MOV? A,3A 
BET 
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PAGE 



IOC OBJ 



70 



75 



20 



25 



30 



35 



40 



50 



0100 1908 



0102 27 
0t05 A1 

0104 AA 

0105 BS10 
O107 AS 
0105 07 



011C 2302 

oi u or 
our FA 
0120 03 



0121 57 

0122 76 

0123 SO 

0124 C3 
012$ C6 

0126 43 

0127 03 

0125 6£ 

0129 E4 
012A 04 
0121 CC 
012C 07 
0120 E8 
012E £3 
012F At 

0130 AO 



55 



0131 R87F 

0133 re 

0134 AO 

0135 E833 



SOURCE STATEMENT 
INCLUDE ( : M : TtOKSM*StC) 



LIKE 

38S S 

- 306 ;* 

- 307 ; tOUTINE: TROKSM 10-07-66 10i40 808 ACTIS 

• 308 - 

• 389 ; FUNCTION • SUN ALL tTTES IN SOTK MEMORY RANKS 

» 390 ; ASSUMES THAT EAC* Of THE SIXTEEN PACES CON T AIMS TftE 

« 391 ; SEQUENCE -TROPCX: MOVP A,BA ; NET- FOR PAGE X. 

« 392 ; 

• 393 TROKSM: NOV t1,#STACX>3 ; tl MINTS TO SECOND STACX ENTtT 
» 394 ; 

« 395 ; 00 SIXTEEN PACES VI TN 256 tTTES PEN PACE 
« 396 ; 

- 397 OJt A 

- 398 NOV SR1,A • STACr>3 « PACE 0 TO START 
» 399 NOV 12, A ; A2 • OTTE ADOAESS 

- 400 NOV R3,fl6 ; 13 - PACES TO 00 

- 401 NOV tO, A - tO - SUN Of tTTES 

• 402 NOV PSV,A ; INSUtE STACK IS EMPTT 

• 403 ; 

• 404 - PUT PACE ACCESS AOOtESS III STACK 



0109 F1 


« 406 TtOlO: 


NOV 


a,»i 






010A 0321 


* 407 


ADO 


A # «LOU T tO TAB 






010C A3 


* 408 


NOVP 


A,3A 






0100 C9 


- 409 


OEC 


tl 






O10E A1 


« 410 


NOV 


8t1,A 






010F 19 


* 411 

* 412 ; 

* 413 ; 00 A 


INC 

PAGE 


t1 








• 414 ; 

• 415 TK020: 










0110 341C 


CALL 


Tt050 




FETCH tTTE 


0112 68 


« 416 


ADO 


A,RO 


• 


ADO TO SUM 


0113 A8 


• 417 


NOV 


RO.A 
R2.TRQ20 






0114 EA10 


- 418 


OJKZ 


* 


JMP • NOT DONE UITN PACE 


0116 11 


* 419 


SMC 


ati 




PACE NUKKEt INatEMENTEDI 


0117 €809 


- 420 


0JN2 


R3.TRO10 


• 


JNP m MOT TWttJ VITN PACES 


0119 17 


• 421 


INC 


A 




CA> ■ 2EtO POt CONNECT SU 


011A 644F 


• 422 


MP 


TKORET 





« 423 - 

« 424 ; LIN* TO EACM PACE 
« 425 ; 

• 426 TtOSO: NOV A,N02 
» 427 nov rsv,A 

• 428 NOV A,R2 
« 429 NET 

• 430 ; 

• 431 ; TABLE FOB AOOtESS OF FETCH K0UT1NE IN EACH PACE 

« 432 ; 



; SET STACK POIHTEt ANEAD 
; A » AOOtESS OF 8TTE TO FETCH 
i JMP TO SELECTED PAGE 



* 433 TtOTAI: OS 



- 434 

• 435 

- 436 

• 437 

• 438 
« 439 

• 440 

• 441 
« 442 
« 443 

• 444 

- 445 

• 446 
« 447 

• 448 
449 S 

« 450 
m 451 ; 
» 452 ; 
« 453 ; 

- 454 ; 

- 455 ; 
« 456 z 



LOU TROPCO 
LOU TR0PC1 
LOU TMPC? 



Ot 
Ot 
08 
01 
08 
08 
08 
08 
08 
08 
08 
08 



INCLUDE<:F1:TRAM.SXC) 



LOU 1 
LOW TK0PC6 
LOU TR0PC7 
LOU TtOPCS 
LOU T80PC9 
LOU TtOPCA 
LOU TtOPCS 
LOU TROPCC 
LOU TROPCO 
LOU TROPGE 



FILE: TRAM.SRC 6*19*86 11:20 808 ACTIS 
FUNCTION: TEST TKE 8039 NAM LOCATIONS 0 TO 7FN 
ENTtT: NO SETUP 

EXIT: NAM MAS CANSACE CTEST PATTERN) 



START NT WITTING EACM NAM AOOtESS INTO ITSELF 



• 457 TRAM: NOV 

• 458 TRAM10: MOV 

• 459 NOV 

• 460 D4HZ 



R0.87FI -SIZE OF 8039 RAM 

A, tO -GET RAM AOOtESS 

8*0, A -STORE RAM AOOtESS IN IT'S LOCATION 

tO, TRAM 0 -DO ALL LOCATIONS 
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SZZPJS******-** • UCt0 AS**"*. V4.2 PACE 7 
CKA095 ASSSMRLED 2/Z2/M NT RLAKE ISAACS 

t0C » "KE SOURCE STATEMENT 

0UIW7* 5£ i'.™ .-COKPME ADOAESi TO CONTENTS 

- 468 ; «0.TMX2O ;DO ALL LOCATIONS 

ouiass - J™ «akjo: JS? J°«Im jfomre* will co reoH 2 to ten 

Z^f .-Wm EVE. LOCATION 

014$ ti I In S U .-MTTEM IS MOU QAAN 

£ .-«.««» location 

Sul" £ ^" *" NEXT AOOAEST 

0KAE«, *7 «A«0 ;ALMP IF HOT DONE YET, .0 < M , 

0UCM02 £ '" C " EDC M0 V KE 

oue ri . «aj tkako- not * £ '"iSf 5' * s ro '" m " ms section 

0«r i» . 32 • *'"" even ntte oata. ossn 

Ss? u :S £ J'* 1 ;*oo orx> .tte oata. oaan 

01»«7* -«7 JS TXAMEX f™*??*^^ 00 " 

OK* 1» .488 INC ? ' EtK * 

SSS ST A*'" .•CET««T«0« E «S 

.157 EWE *7 T««0 ^.E NOT DONE YET 
0159 «0 2 l22» m ^««»««E«E.«0«»«T, £M 

0IS12SM . m wabso, JiSL ;~inte» w lL go fnon z to ten 

01 SO Al m 406 -J, . 

015F 19 . m il J*TOWI IS NOV OSSN 
OWO Al .499 5J, . 

0161 19 .500 7*C Ti :%mUt 000 t0aT, « 

ST »CET NEXT ADORESS 

0164 *25. .503 *7 TRAMSO ;JIMP If hot OONE TET, K1 < 80N 
0166 8802 IIS 5 «ECr TRE °AAII/055K TEST PATTERN 

0168 FO . 507 TRAM&O: NOV I £ ? £* 2**™ «« ™» SECTION 

016? 18 . 508 Tic RO ' **** OATA. OAAN 

oiau I|S JL? J* 5 * 0 ;«o coo site oata. ossh 



owe*?* .1,'? ]S :2^^ S ^S 00 " 

OWW Tig ™ *'» ;CET NEXT AOOtESS 



0171 f268 * SIS MT * w „ 

- 516 ; T * AW6 ° 1^ MOT OONE TET 

0173 27 • 517 rim - . 

017* «S7 • 5T8 TKAHEK: MP Ul ^r^LI^* 5160 

0200 523 0N6 200N 

»_ INClUDE(:F1:TTAC.ac) 

" SD , " ' 



- M6 : ROUTINE; TTAO 06-19.86 15:30 tot ACT IS 

^ |2 f fW<Cri0 !f; 0I6IT «. tOCIC FOR CAPTURE Of 6 INCREASINGLY 

:fS: ^Sc1ssJ«f " t«E sWSi^E 

- 531 - «°CESSHIC IS USED 10 COLLECT TRE SEGMENTS FROM TNE FCA. 

0»? 9A I 532 hAUMZ 01 0FER.9AR.64N.16N.0.7N.O0ON.OAA- 

0202 64 

0203 16 . 

0204 87 • 

0205 00 . 
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PACE 



70 



75 



20 



25 



30 



35 



40 



45 



50 



55 



tOC OBJ 

0207 3A 

0208 69 

0209 42 
020A 86 
0208 59 
020C 2£ 
0200 3E 
0206 8810 

0210 90 

0211 6901 
0215 8800 
021S 8E06 
0217 SF06 

0219 8908 
0211 880E 
0210 F8 
02IE 6A04 

0220 A3 

0221 AC 

0222 5501 

0224 E7 

0225 17 

0226 47 

0227 AO 

0228 rc 

0229 77 
022A AC 
0228 5301 
022D £7 
022E 17 
©22F 60 

0230 A1 
0Z31 19 

0232 rc 

0233 77 

0234 AC 

0235 EA22 

0237 18 

0238 £810 



023A 2390 
023C 39 

0230 8802 
023F 8006 
0241 8A38 
0243 883F 

0245 ro 

0246 68 

0247 AC 

0248 EC48 
024A FO 

0248 3251 
0240 99FO 
024F 4455 
0251 8902 
0253 00 
00 



0255 FO 

0256 68 

0257 AC 
0256 CCS8 
02SA FO 

0258 47 

025C 3262 
©2SC 99F0 
0260 4466 
0262 6902 

0264 00 

0265 00 



LIKE SOURCE STATEMENT 

» $33 08 3AM,OO9N,42ft,0S£!l,59«,ZEN,Q3EN 



MOVX 
06L 
MOV 



• 534 TTAC 

■ $35 

- $36 

■ $37 
« $38 NOV 
•539 MOV 

- 540 MOV 
-541 MOV 

• $42 IMPC1: MOV 
« 543 MOV 

• 544 MOVP 

■ $45 MOV 
« $46 UKPC2: AMI 

• $47 81 

• $48 lire 

■ $49 SIMP 

• $50 MOV 

• SSI MOV 

• $52 88 

- $53 MOV 

• $$4 AML 

• 555 tt 

• $56 IMC 

■ $57 ADO 

• 558 MOV 

- $59 IMC 

• $60 MOV 

• $61 tt 
« $62 MOV 
« 563 DJKZ 
« $64 1KC 

• $65 DJM2 

- 56*; 

• $67 ; SETUP TEST 

• $66 ; 

- S69 MOV 
» $70 OUTL 
« S71 • 

• $72 MOV 

- 573 MOV 

• 574 TEST1: MOV 

• 575 MOV 

• $76 TEST2: MOV 

• $77 ADO 
•578 MOV 

• $79 TESTS: 

- $60 

• $61 ; 



• $62 

• $83 

• $64 

m S8S TST31: 

• $66 
« $67 

• $66 ; 

« 569 TST32: 
« 590 
« 591 

- 592 TEST4: 

• 593 

- 594 ; 

• 595 
« 59* 
« 597 
« 598 

■ 599 TST41: 

• 600 

• 601 

- 602 ; 



481 



MOV 



DJM2 



SIMP 
481 



081 



R0,fEFC8ST 

3*0, A ; RESET FCA 

P1,«ETEST ;TEST CONTROL ACTIVE 

R0,fLOU TTATA8 ; 60 POINTS TO CKAJt GEM TABLE 

86,806* ;TM1S 60UT1ME CHECKS DIGITAL LOGIC 
87,806* ;FOR CAPTURE OF 6 IMCftEASIMGLT LARGER 

81,806* ;TACS 01234$ 678912 

83, 806 H -UNPACK DATA COMSTAMT 
A,BO 

82,8048 IMPACT DATA COMSTAMT 
A OA 

64,A ;TEMP STORE 

A,801M ;ST6IP OUT OME BIT 

A 

A 

A 

83, A 
A* 64 
A 

64, A 
A, 801* 
A 
A 

A.RS 

3R1,A 

61 

A,R4 
A 

84, A 
B2,UMPC2 
60 

B3,UNPC1 

MIT 08 PORT 1 

A,«ETEST«EP12*EP13*ELASO8+ET0ME 
P1,A 

83,802* 
85,806* 

82,836* ; START TAG POINTER 
R0.63FM 

A,R$ ; START TAG OUTPUT 

A.83 

64.A 

64,TEST3 

A,880 

TST31 ;JUMP * 
P1,6QFF*-ETKA*K 

I SI 32 

P1,8ETMARC 



A,R5 
A,B3 
64,A 
64,TEST4 
A, 080 

A 

TST41 ;JUKP 
PI , 60FFM -ETNARK 
TST42 
P1,fETKARJC 



• SEMD SPACE 



31 



BNSDOCID: <EP 0388560A2J_ 



EP 0 388 560 A2 



OWnS ASSEMBLED 2/22/60 IT SLAKE ISAACS 



IOC OtJ 

0267 EA45 
0269 EMI 

0268 f3 
026C 1400 
026E £5 

026F t£18 

0271 rc 

0272 4301 

0274 AC 

0275 rs 

0276 14A4 
0278 5404 
027A E5 
0271 EE75 

027D as 
027E 8S2C 

0280 FO 

0281 18 

0282 60 

0283 03F4 
0285 9647 

0287 8834 

0289 95 
028A 8680 

028C 8A04 
028E 8824 

0290 89A9 

0292 F9 

0293 A3 

0294 DO 

0295 96A7 

0297 18 

0298 19 

0299 £A92 

0298 882E 
0290 8403 
029f 95 
0240 8692 

0242 887F 

0244 AO 

0245 E8A4 

0247 6469 

0249 01 
0244 23 

0248 45 
02AC OC 
0240 67 
024E 89 
024F t2 

0280 A3 

0281 A3 
0300 



LINE 

• 604 

• 605 

■ 606 ; 
- 607 

• 608 

• 609 

• 610 j 
« 611 

• 612 

• 613 
' 614 



SOURCE STATEMENT 



OJNZ 
DJKZ 

sel 

CALL 
SEL 



MOV 
Otl 
MOV 



• 615 CETLUP; SEL 

• 616 CALL 
« *»7 CALL 

• 618 sri 

■ 619 
. 620 ; 

• 621 cut 

■ 622 MOV 

• 623 TCSXVT: NOV 

• *2< INC 

• 625 ADO 
•626 ADO 
•627 Ml 
« 628 ; 

• 629 NOV 

• 630 CPL 

• «1 JFO 
- 6X2 ; 

• 633 MOV 

■ 634 NOV 

• 635 NOV 

• 636 tOOPCK: NOV 

■ 637 NOVP 
" «8 «t 

• *39 jnz 

• 640 S 
» 641 

• 642 

• 643 

• 644 ; 
■ 645 

• 646 

• 647 

• 648 
» 649 • 
- 650 

' 651 CUUtAH 



R2.TEST2 
R5.TEST1 

Nil 

at&sc 

NflO 

R6.824 
4,84 

A.fESCMC 

R4.A 

Nil 

PCFC4 

procsg 



9JM2 *6,6ETLUP 



lire 

INC 
DJtfZ 



CPL 
JfO 



0JH2 



• 652 

■ 653 

■ 654 TTA90: JMP 
*65S ; 

' 656 TTACMC: 08 



• 657 



to 

R0.HL6SCNT 

a.oro 

80 

a.dro 

A.H-12 
TT490 

ho,**6scht 

FO 

TOXJfT 

82,84 
R0.8L6S1 
B1,fLOU TTACWC 
A.R1 
A.0A 
A,9*0 
TTA90 

80 
81 

82.L00PCK 
B0.BR6S1 
FO 

LOOPCK 

R0.N7FN 
340.4 
tO.CLRBAM 

TT48ET 

CtN,23H,4SM.0CM 



67N,89H,12n 



PACE 



;END OF TAG 
;E«D OF ALL TAGS 



.-CLEAR 6 CHAR SEC 9UfK t COUNTERS 

;S*XJU> 8E CMLT 12 SECS. TRY FOR MORE 

;SET SCAM FLAG SO CKFCA MILL 
?PUT SEGMENTS INTO THE SCAN BUFF 

;CET SEC, IF ANT. FROM FCA 
*PUT SEC, IF ANT. INTO SEC BUFF 

;GO CHECK FOR MORE SEGMENTS 

;SETUP FOR RIGHT HALF LOOP 

XCET L OR ft COUNT 

;CET L OR 8 TOTAL 

;JUNP IF X6SCNT+X6ST0TO12 



;JUK> TO 00 8ICNT HALF 
;4 8TTES TO COMPARE 
;04T4 CHECK TA8LE 

;JNF IF 8A0 CHECK OF 0AT4 



;3 BYTES TO COMPARE 

MUH* TO DO RIGHT HALF 

;LOOP COUNTER. HAM SIZE 
;4«0 4T TNIS POINT, TEST PASSED 
; CLEAR ALL RAN AFTER TESTING 

*A«0 FOR SOCCESFUL COMPLETION 



A.OA 



658 : 

659 TROPC2: NOVP 

660 RET 

661 ORG ZOOM 

^ * »>«H)E <;F1rTN0T0R,SRC> 



7 NOT USED IN 750F 



0300 8912 

0302 55 

0303 25 

0304 8F0S 
0306 FF 



* tft * F,L£: W°"*.S8C 9-11-86 08:45 801 ACTIs" 

- U>7 : BflTs USES 83.87 

* 668 ; 

:gS twn * , S f J»-«-»«nw ;uu« off. mt * ™ 

Ztn, " 1,M " jEBAtlE TKE TIKE* 

- «« mono: 2? "if ;$ET TH « «• «»«c 
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ISIS-II NCS-48/UPI-41 MACRO ASSEMBLER. Vk.Z 
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PACE 12 



LOC OBJ 



03A3 238 F 
03A7 3A 
03XB 6A40 
C3AA Z39C 
03AC 39 



Q5AD 8803 
OJAF 90 



0350 6440 
0382 



0382 OS 
03B3 8028 
0315 C5 

0386 55 

0387 25 



0388 8920 
038A OS 
0388 SE04 
0380 C5 
038E 99EF 
03C0 BF32 

03C2 ff 

03C3 96C2 



03C5 99CF 
C3C7 89(2 

03C9 8603 
03C8 90 
03CC BF02 
03CE FF 
03CF 96CE 



03E3 A3 
03£4 83 
0400 



LIVE 

826 : 

827 ; 
£28 
829 
830 
831 
832 
633 ; 
834 ; 
635 
836 

837 • 

838 • 

839 ; 
640 

641 TPORET 
842 



SOURCE STATEMENT 



SETUP PORTS 
MOV 

curt 
out 

MOV 
CUTL 



A,t255-EYLSIR ;PWR tST THE VLSI (KO EFFECT OK 750F) 
P2,A 

P2.NEVLSIR ;EKA8LE VtSt TO RUK 

A # fEP12*EP13*eT0KE*ELAS0t 

PI, A 



W3 ; 

844 

645 

646 

647 

846 

849 ; 

850 : 
851 
852 
853 
8S4 
855 
856 



RESET T8E FRAME CONTROL ARRAT 
MOV RO,NEFCRST 
MOVX 3R0.A 

CO PERFORM T«E POUER UP TESTS. 
STICK IK TPOJt LOOP IF AMY FAILURES. 
JKP TPOK 
EOU 8 

TPOK PASSCO. START THE IKTEKKAl TIMER 
SEL RBI 

MOV R5,«ET0NCT -SET THE TOME CYCLE COUNTER 

SEL RBO 
STRT T 
EH TCKTI 

CREEK LI CUT, COOO POUER UP TONE, LASER ON AND WAIT 1 SEC. 



ORL Pl.fEUDLT 

SEL RBI 

MOV R6,«E60MS 

SEL RBO • 

AMI P1.82SS-ELAS08 

MOV R7.8E1000N 

657 TP0N15: MOV A # R7 

656 JHZ TP0N1S ;UA!T 

659 ; 

REINITIALIZE AFTER TEST SEOUEKCE 



•200NSEC BEEP FOR 75 OS., 60MS FOR 75 Of 
; LASER 0K # TIME TO START BEFORE ROT AC 



PI ,t25S-(ECDlT*ELASD8) 
Pt.«EBOLT«EMTREB 



661 P0U20: 

662 ORL 

663 ; 

664 MOV RO.REFCRST 

665 MOVX OtO.A 

666 MOV R7,#2 

667 P0U2S: MOV A,R7 

668 JKZ POUZS 

669 ; 

670 ; CLEAR OATA MEMORY AND PSU 



;C000 LIGHT OFF t LASER OK 

;8A0 LICKT OK t MOTOR OK (KO MOTOR ON F) 



0301 27 


« 671 


CLR 


A 


0302 07 


« 872 


MOV 


PSU. A 


0303 667F 


« 673 


MOV 


RO.OTK 


0305 AO 


■ 674 POU30: 


MOV 


MO f A 


0306 E605 


« 675 


OJHZ 


RO.PON30 




• 876 ; 




0308 05 


• 877 


SEL 


RB1 


0309 8028 


• 878 


NOV 


RS.iETOHCT 
RBO 


0301 CS 


« 679 


SEL 




• 660 ; 






030C 6870 


« 861 


MOV 


RO.tCONFIC 


030E 8000 


• 682 


MOV 


ORO.RO 


03E0 FS 


-663 ; 
« 684 


SEL 


M81 


03E1 C400 


* 685 


JNP 


ROTAS 



; RESET THE FCA 

;S£T TIMER FOR 40 MSEC 

;VAIT FOR FCA TO SEE SECS IF AMY 



; CLEAR THE PSU 
; CLEAR MEMORY 



;SET THE TONE CYCLE COUNTER 



; SETUP COKFIOURATIOK REGISTER 



A,8A 



gg* 

887 TR0PG3: MOVP 
RET 
ORG 

% INCLUD£C:F1;K0RSE1.SRC> 



889 
690 
■ 891 
« 692 

* 693 

• 694 
» 695 

• 696 
« 897 
» 898 
m 699 
« 900 

* 901 



FILES HORSE 1. St 
07-03-66 09:05 6 

ROUTINE: T MORSE 



NORSE TEST PART 1 OF 3. 
ACT IS 



NORSE TEST (NOSY ORIGINATED SEGMENT EVALUATION) WILL RECEIVE 
TEST TAG PEFIKITION FROM HOST, COUNT THE NUMBER OF TIMES IT 
•SEES* EACH SEGMENT OF THE TAG AND THtK SEND THE COUNT 
INFORMATION TO THE MOST. •••REMAINS IN MORSE TEST UNTIL 
OSATA=0. OR POUER RESET. 
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""-I! *«-<Vlfl-<1 KACSO ASSEHS LEA, V4.2 PA6E 10 
WA09S ASSEHSLED 2/22/68 IT SLAKE ISAACS 

IOC MJ LIKE SOURCE STATEMENT 

• 676 : 

0309 OA ■ 677 IK » ■> 

0S0A37 .678 CM. A 

IS; J ' 5 lmaB IE KOT W2STO 

ojcowra IS' " T ** f «t to «ioy. eusk sots lickts. 

OJOf U3? IS?«««„ iii M.«SJ-B«K£i .-KOTO* Off 

S?i 5J« ISSUES tOOP COOKIES 

Si" "SSSm SS V' .'SET Tl«t EOK tOOKSEC 

0313 EE I 2£ *' SJ 1 f^rJS^r 0 * 1 * 01 tW " 

03««i3 :s « S& SffSKSr ioccles 

SrS IS??' |S " ;OE« B CKTICO,C M ,TE« 

HMHB «* .-*».EE.K,SKED«A,mc 
031A 0» - 69i ' m A 

SJJSlT TSI *fi JM»S-«»LS«EKW.T> ,-LICKTSOEE 

! 697 - J * 5 1,10122 IE COLT IMS ON 

• 700 ; 

0323 W9E . 701 1*012* AKL Pl.»2SS-CEeDLT««0lT> .-UCKTSOEE 

O^ET -iElHOTAOiSE I 7 ,? TIKES EOS 100 KSEC 

032A96W .7M j„ T»T«0 ;UA!T EOS KOTOS CIKCUIT TO POUER UP 

032C OA « 70S * |N A P2 

0MDK * 6 ISO. JIS ™™ JJUKK " ALREADT W2SP0 ... FAILED 

032? SSEA TO T»reO T J^""^ ^ 0 ,KE ««*»• ELASK 6SEEK L1CHT. 

0333 . 7U THOT80 coo S 120 " S£C 

0J3S EE I m r*r S :S^ A ^„^ Ca ' IKX ,rTE <*° r l»«B«KTEO) 

0334 9633 « 717 \»l ;20HS*6*2S0«30SEC 

1-718 - TIOTa ° ?««T tCTlCW IICHT TOCCUS 

0336 OA « 719 ' t* AP2 

0337 «*. .720 ^ THOT95 •AMP IE KOTOS IS UP2SP0 ... PASSED 



S£« ."tII ^ ?« lOECREWKT LOOP COMTEK 

033* C646 - ~ — ' 



» 715 ; 


CALL 


• m 


MOV 


« 717 


JUZ 


•715 ; 




« 719 


IK 


« 720 


JtS 


« 721 ; 


- 722 


DEC 


« 723 


NOV 


« 724 


JZ 


« 72S ; 


- 726 


IK 

AKL 


- 727 


■ 728 


JtS 


■ 729 ; 




* 750 


OKL 


• 751 


JNP 


» 752 ; 




« 733 ; COME 


KEKE IF 
AKL 


« 734 TMOT90: 


• 735 


cut 


• 754 


C7L 


- 757 


KET 


-73d j 





0350 09 ■ 726 in . m - 

^ BZ51 " 728 ^ ««T60 ;JCJHP ir COLT IMS OK 



TH0T90 ;JUNP tr TIMED CUT FAILED 

;TOGCL£ C 
P1,#2S5*EGDLT ;CDLT Off 
TH0T60 *jcjhp ir 

^ 8 ' /51 ^ ;COKTIKUE IMITIHG fOt UP2S70 

«t^c ~~ ' «- W TEST FAILED 

S^S S A FAILED FLAC 

0541 27 IS LnS^ » ™E TEST ^«SED 

I ^ lmm: Sf * JSET MASSED FLAO 

i 6*16*67 OKEV TAUSSIG 

• 746 - ««W«K SELF-TESTS FOt 750SL 

0340 2600 2 767 TFOK: JMF TtOKSK 

036F C65S m 7*8 TUMETr J2 TFOK20 .»» tr t«c — 

0351 KOOO m 740 Jw in^T ;< ^^ ,F ^ CKECtSUK PASSED 

0353 6671 .7^ £ f2£n * OCEW WITH TKtS EttOt 

« 751 
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ISIS-II NCS-48/UPI-41 MACRO ASSEMBLE*, V4.2 
CMA095 ASSEMBLED 2/22/88 »T BLAJCE ISAACS 



PACE 11 



IOC OBJ 


LIKE SOURC 


E STATEMENT 




0357 C6SO 


* 753 TRARET: 42 


TP0N30 


;JUKP IF TKE RAN TEST PASSED 


0359 6801 


• 754 MOV 


R0,f1 
TPON90 


;ONE BEEP FOR TMIS ERROR 


0351 647B 


• 755 JMP 






• 756 ; 






0350 rs 


• 757 TPON30: SEL 


MSI 




035E 3400 


• 758 CALL 


RCOMN 


;C£T CHECKSUM BTTE FROM SUPERS 


qjoo t J 


_ Ten *CI 


M80 




0361 C667 


• 760 JZ 


TPOH40 


;VAL!0 CWCSUK SETS A TO 0 


0363 8805 


- 761 MOV 


R0.B5 
TPOH90 


;5 BEEPS FOR I/F ROM CHECKSUM ERROR 


0365 64 70 


• 762 JHP 






« 763 ; 






0367 440E 


* 764 TPON40: JKP 


TTAC 




0369 99fC 


m 765 TTARETs AML 


Pl # f2S5-<ETE$T«ETMARC> y CLEAR TEST AMD TEST MARK LINES 


0368 C671 


• 766 JZ 


TPOK50 


;JUHP IF THE TTAC TEST PASSED 


0360 6603 


m 767 MOV 


R0 # f3 


•THREE BEEPS FOR THIS ERROR 


036f 6478 


• 768 J*P 


TPON90 






« 769 ; 






0371 7400 


• 770 TPON50: CALL 


TMOTOR 




0373 C679 


• 771 4Z 


TPOH60 


;JUKP IF TKE MOTOR TEST PASSED 


0375 6804 


« 772 MOV 


R0,#4 


•FOUR BEEPS FOR THIS ERROR 


0377 6471 


« 773 JKP 


TPON90 






- 774 ; 






0379 64*2 


■ 775 TPOK60: J*P 


TPORET 


•RETURN FROM THE POWER UP TESTS 




« 776 ; 






0371 747F 


« 777 TPOH90: CALL 


TERRtfT 


; ERRORS CONE HERE 


0370 0400 


• 778 JMP 


RSTTRP 


•RESTART TKE PROGRAM 




m 779 








• 780 ; tOOT IKE: 


TERRtfT 6-17-86 16:25 S08 ACT IS 




* 781 ; FUNCTION: 


SELFTEST ERROR ROUTINE 




• 782 ; 


SEEP RO TIMES A* 


0 WAIT 1 SECOND 




• 783 r ENTRY: RO 


* NUMBER OF BEEP 


S 




■ 784 ; EXIT: OSES 10. t7 






* 785 ; 






037F 990 F 


- 786 TERRtfT: AKL 


P1 # *2SS-ECDLT 


;CDLT OFF 


0381 0940 


• 787 ORL 


P1,*ES0LT 


;8DLT OK 




« 788 ; 






0383 SS 


« 789 STtT 


T 




0304 25 


« 790 CR 


TCHTI 


;EKABLE TKE TIMER OPERATION 




• 791 ; 






0385 f 5 


« 792 TERR02: MOV 


A # RO 




0386 C698 


• 793 JZ 


TERR 10 


•JUMP IF NO BEEPS 




- 794 ; 






0388 05 


■ 795 TERR04: SEL 


RBI 




0389 B026 


« 796 MOV 


R5,fET0NCT 


•SET TKE TONE CTCLE COUNTER 


0388 8E02 


* 797 MOV 


R6 t #2 


•SET BEEP TIMER FOR 40 MSEC 


0380 re 


• 798 TERR06: MOV 


A,R6 




0386 9680 


■799 JMZ 


TERR06 


;UAIT FOR BEEP TO CKO 


0390 C5 


* 800 SEL 


RBO 




- 001 ; 






0391 8F03 


» 802 MOV 


R7.B3 


•SET TIMER FOR 60 MSEC 


0393 FF 


■ 803 TERRQS: MOV 


A,R7 
TERR08 




0394 9693 


- 804 JHZ 


;UAIT BETWEEN BEEPS 




- 80S ; 




0396 C688 


• 806 DJHZ 


R0.TERR04 


;IEEP LOOP 




« 007 ; 






0398 tf 32 


• 808 TERR 10: MOV 


R7,BE1000K 


;SET TIMER FOR 1 SECOND 


039A FF 


• 809 TERR 12: MOV 


A,R7 




0398 969A 


* B10 JUL 


TERR 12 






« Oil ; 






0390 83 


* 812 RET 







813 S 



IKCLLQE(:F1:FP0UUP.SRC) 



MOVP A,S* 
RET 

ORG 400H 
IKCLUDE€:F1:N0 
615 



039E 93 
039F 
039F 15 
03AO 35 
03A1 27 
03A2 07 



■ 616 

* 617 
« 818 
« 619 POtfOO: 

• 620 POUUP 
- 821 

• 622 
« 623 

* 624 



- 614 ? 

PILE: FPOUUP.SRC 12-09-66 13:50 
ROUTINE: POUUP 
FUNCTION: IKITIALI2E SYSTEM 



808 ACT IS 



RETR 

EOU 

OXS 

OIS 

CLR 

MOV 



s 
I 

TCNTI 
A 

P$U,A 



; RESET TKE IIP FLIP-FLOP 



35 



EP 0 388 560 A2 



IMS-It K£S-£8/lff>r-£1 MACRO ASSEMBLER vi 3 
L0C 0tJ SOURCE STATEMENT 



« 903 • RTTE DEFINITION 
• 904 



1 90S ; TEST CONTROL STTE ■ 01* 
a Jos • CCX * r Tt * ltCt •»» ' 2*" ttFTM MIIR MSEM - MH> 

otS?* IJSJ™* 01 S" ™ "picttet coma me Kami ir on 

0408 8910 « M J 2* i, , £??^! CDW * e,0tT} JU6HTS OFF 

OtOA «^r»" _ I.c - M.«EUSDt ;IASE( OFF 

££££ r^l 1 " 005 -- £ ™°" « iSTS, « T a 

• 917 ; 

0412 37 *^4 5T T ;00 FCA FRAME RESET 

0413 F20A ; 92S J17 T|(005 •REfiWK IF FCA DOCS MOT HAVE COHMM OATA 

I ^ • OTHERWISE, FETCH COHM OATA 

0416 JT 1 930 " --JO C2H TO READ COHM REG 

0417 A9 «Sl IS? i; 8 ? 1 ;JfAO FCA COHM REG 
04M 961C -to S 5l£* J«W»«OATA 
04U 0400 « ©rf t«n IS I 1 * 014 ;JKP If DATA «0T«0 

I J£ I" 012 ' ^ t$TW JJWP TO POUER UP RESET IF COHM OATA«0 

«K I ^ T "° U = ^ « «TT »CPARTY WU CN* FOR CORRECT PARITY 

04tF 9600 * W jjr i-rw. 

f* . S IS J"?? 0 :£L£!!?«I?"" r " "«««CT PAR ITT 

0422 S62D m oto Vll ' ;R1*C0MM OATA 

Jf ° ™° 15 IF CONTROL BYTE ALREADY RECEIVED 

0424 0301 « 941 XRt A N0D1K ;0TKeW/ISE ' FOR CONTROL BTTE«OlN 

0426 9600 « ii25: 

0426 95 . ac| 2? I? 000 TO START IF NOT CONTROL BYTE 

0429 8940 « GKL PI ffl?afif J*'."* 1 10 ,,B>,C * TE ««« »to"£d 

042RB40A . 945 £ JisST^I^;" °" 0,11 « T « tCVD 

. 946 ; 1,1005 • MC,C T0 TH005 10 GET 16 OATA BYTES 

: I ,TTE$ W "« «■« A 000 BYTES IN LO/ NIBBLE 

0430 47 . Ji? f£L I* 320 ? I' »««S IS 000 BYTE 

0431 AO « 95, ~ ™ . 

0432 6436 « 953 jm» ?E£ W ^ ,TO 111 KIBBLE 
0434 Sfl iTj _ •••^ iNDZr 

- «6 ; *° '"^ «° TO KEXT SEC TMIC MWRESS 

I £J | F0» IA$T 8TTE OF OONTCOL tTTE 

ow^oo *.«> 

KX«tO0 „?£ ^ J^If 305 .-JHP * HOKE TO COKE 

- 965 ; 

« OST ' ,F '* * £C£,VED . FERFOtN TEST 
•**0 EMO m 9&S TNOOO- Bin »t Im , 

. 969 SS? S2? 000 W .TIES 



«J «U TSCHT .^COtUCTSE^U 

««««. awrs «d east stte to amiTE* 

B91S OT? * 

«46«oo SSI 5£ 5 « S^b^ ,m T0 ™ 

04*8 NBOB I 976 * MOV m m 

044A BBSS .977 m~ 

WCfl « 978 TNOSO- "if 0111 ;«XOUNT PORTER 
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ISIS-II KCS-48/UP1-41 MACRO ASSEMBLER, V4.2 FACE 14 

CMA095 ASSEMBLED 2/22/85 BT I LACE ISAACS 

IOC OW LIKE SOURCE STATEMENT 

our ro -960 hov a,oro 

0450 47 -981 SIMP A 

0451 6455 - 952 JKP TH059 

0453 30 - 983 TMQ55: XCXD A,3R0 

0454 18 • 954 IVC 10 

0455 530* • 985 TN059: AMI A,«0FK 

0457 A9 « 986 NOV R1.A 

0458 8400 * 987 CALL TRSND 
04SA EB4C » 988 DJX2 R3,TH050 

« 989 ; 

043C B92A « 990 MOV tt # #2AH ;2AN ■ COUNT TRAILER BYTE 

©45E 8400 - 991 CALL THSND -SEND TRAILER BTTE 

0460 8400 « 992 JMP THO00 ; FINISHED l/ITH THIS REQUEST, START OVER. 

993 S IKCUOE(:F1:NORSE2.SRC) 

• 994 mtMM i m i mmimMM t MMMMMtnn M 

• 995 J FILE: HORSE2.SRC HORSE TEST PART 2 Of 3. 
- 996 ; 07-03-66 10:35 808 ACTIS 

■ 997 ; 

» 998 ; ROUTINE; TSCNT - COUNT TEST SEGMENTS 

■ 999 • 

■1000 ; FUNCTION: COUNT TKE NUMBER OF TINES EACH Of TWO SEGMENTS ARE DETECTED 
-1001 ; OVEt A ONE SECOND PERIOD* TURN TKE LASEft OH DURING TKE TEST. 

-1002 ; EXIT TO POUER ON ENTIT IF ANTTMING RECEIVED FROM HOST, 

-1003 ; WILL COMPARE 1ST 2 CHAR" OF SEGMENT CAPTURED WITH 

-1004 ; TSEC1 ft TSEG2 AND RESET FCA SKI FT REG IF NO COMPARE • 

-1005 ; 4 CHAR S£6»S MUST RE PRECEDED 8T OOft IN THE SEC TABLE... 

-1006 ; 

•1007 ; ENTRY: 

-1008 ; TSEC1 « SEGMENT 1 DEFINITION (4 ITTES) 

-1009 ; TSEC2 « SEGMENT 2 DEFINITION (4 8TTES) 

•1010 ; 
•1011 ; EXIT: 

-1012 ; TCNT1 • SEGMENT 1 COUNT <2 RYTES) 

•1013 ; TCNT2 « SEGMENT 2 COUNT <2 RTTES) 

•1014 ; 
•1015 ; •( A) 
•1016 ; *CR0) 
•1017 ; -CR1) 

-1018 ; *CTSC8UF > TO CTSCSUF«3> 
-1019 ; RSD <R7> m SECOND TIMER • 0 
•1020 ; 

■1021 ; PARAMETERS: 
•1022 ; 

•10Z3 ; SEGMENT DEFINITION TABLE 

•1024 • 

•1025 ; BTTE O - 1ST AND 2ND CHAR CAS DETECTED OR ZERO IF 4-CNAK) 

•1026 ; BTTE 1 - 3RD AND 4TN CHAR <1ST ft 2ND OH 4-CRAR) 

-1027 ; BTTE 2 - 5TN AND 6TH CHAR C3R0 ft 4TN ON 4-CKAJC) 

•1028 ; BTTE 3 - DECODED PAR ITT U3RO 

■1029 ; 

0462 99EF «1030 TSCNT: ANL P1,#0FFH-ELAS0S ;LASEK ON 

0464 8F02 -1031 MOV A7,f02« 

0466 B43B -1032 CALL TNUAIT -WAIT FOR LASER TO TURN ON 

0468 BF32 -1033 MOV R7,fE1000M 

046A 27 -1034 CLR A 

046B B838 -1035 NOV RO.fTCKTl 

0460 8909 -1036 MOV R1.B9 

046F AO -1037 TSC02: NOV 9R0,A -CLEAR TCHT1 TO ¥CNTY*9 

0470 16 -1036 INC RO 

0471 E96F -1039 DJN2 R1,TSC02 

-1040 • 

■1041 ; RESET FCA TO CLEAR ANT SEGMENTS 
■1042 - 

0473 B803 -1043 * MOV RO.fEFCRST 

0475 90 -1044 MOVX 8R0.A 

■1045 ; 

"J046 ; IF STMCAP THEN READ THE SEGMENT; EXIT IF HOST BTTE RECEIVED. 

0476 AS -1048 TSC04: CLR f 1 -F1 REMEMBERS TO INC TCNT1 OR TCNT2 

0477 8801 -1049 MOV 80,iESRK0 

0479 868D -1050 TSC05: JHI TSOQ8 ;JHP IF STMCAP OR MOST COMM. OCCURED 

047B Ff -1051 TSC06: MOV JL,R7 ; CHECK FOR 1 SECOND TIMEOUT 

047C 9676 -1052 JHZ TSC04 

•1053 ; 

•1054 ; TURN LASER OFF ft RETURN TO CALLEt 
-1055 ; 
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CKA095 ABMLO 2/22/M IT IUXE ISAACS 



LOC OtJ 

0480 83 

0481 90 
6482 847B 

0484 80 

0485 27 

0486 8950 
0488 A1 
0409 849? 
0488 0409 
0480 8950 
©48f 80 
0490 F28f 
0492 9284 

0494 47 

0495 A1 

0496 80 

0497 31 

0498 F1 

0499 8950 
0498 01 
049C C6A6 
049E 8954 
O4A0 fi 
04A1 8950 
04A5 01 
04A4 9681 

04A6 8951 
04AA 8416 

04AA 8831 
04AC 842A 

04AE C688 

0480 85 

0481 8835 
0483 B42A 
0485 9678 

0487 8838 
0489 7680 

0488 8839 
0480 17 
048C 60 



LINE 



04C0 CB 
04C1 27 
04C2 70 
04C3 AO 
0404 8478 

04C6 A3 
04C7 83 
0500 



SOURCE STATEMENT 



RET 



MOVX 

cut 

NOV 



0500 OA 

0501 9200 

0503 f 9 

0504 8406 



■1057 
•1058 ; 
•1059 TSC07r 
•1060 
-1061 ; 
-1062 TSC12: 
-1063 
-1064 
-1065 

-1066 JNP 
-1067 TSC11: JHP 
-1068 TSC08S NOV 
•^069 MOVX 
-1070 J87 
-1071 J84 
"1072 suap 
-1073 MOV 
-1074 MOVX 
•1075 XCND 
■1076 MOV 
1077 TSC09; MOV 



-107S 
•1079 
-1080 
•1081 
-1082 
•1083 



m 

JZ 

MOV 

MOV 



JNX 

MOV 
CAU 



CALL 
JZ 

cpl 

MOV 
CALL 



•1098 jfi 
•1099 SECONE: NOV 
•1100 IHCREM: 18C 
-1101 



-1085 ; 

•1086 TSCIOr 

•1087 

•1088 - 

•1089 

-1090 

•1091 

•1092 

•1093 

•1094 

•1095 

■1096 




•1102 
-1103 
-1104 
-1105 
•1106 
•1107 

1108 ;< 

1109 tropcc? movp 

1110 SET 
Jill 086 SOON 

"Jf* IM CUJDECgf UMORSg.SRQ 



M0,A 
TSC06 

A,0*0 
A 

Jti,rrsc8UF 

ORM 
TSC09 
BSTTRP 
R1,l 

a,9ro 

TSC11 
TSC12 
A 

anUA 

A,SRO 

a # 8ri 

A.5R1 

Ri.rtsegi 

A # 9*1 
TSC10 

tl,#TS£C2 " 

a,8ri 
*i, risen* 

A«081 
TSC07 

R1,*tscsuf*i 

NEXT4 

R0,«TSEC1*1 
SCHICK 

SECONE 

n 

R0,8TSEC2*1 

SOfTCM 

TSC06 

R0,«TCXT2«1 
INCREN 
R0,8TCNTU1 
A 

A,a*o 

3R0 # A 

to 

A 

A,3R0 
*0,A 
TSC06 



PACE 15 



;IESET FCA SHIFT tEC 



;SHIFT OUT 2*0 CHAM FROM FCA 
;PUT 00 TO 84 FOR 1ST TWO CHAR'S 



;START OF DATA CAPTURE SUFFER 

;ft£AO 1ST CHAR FROM FCA 

;JNP TO POUER UP SEO IF COMM. FROM MOST 

;JMP IF 4 CHAR SEC... 1ST 2 CHA8S*00 



;READ 2M0 CHAR FROM FCA 



; COMPARE 1ST 2 CHAR'S WITH TSE61 
;JMP tF COMPAREO 



; COMPARE 1ST 2 CHAR'S WITH TSE62 
;4MP TO RESET FCA S.8. IF MO COMPARE 

;SET UP TO READ NEXT 4 CHAR'S 
7READ 3R0-6TH CHAR'S 

;COMPARE COMPLETE SEC TO TSEC1 A 2 
;C0MPAt£ LAST 4 CHAR'S OF CAPMED SEC 
jTO TSEC1 

;JHP IF SEC 1 COMPARED 

;M«1 SAYS TSEC2 BE IMC COMPAREO 

?JMP IF MO MATCH 

;JMP tF TSEC 2 MATCHED TO INCREMENT 

*S 21 *° T ° TSEC 1 CMT8 

;ACC MOU » 01 

;IHC LOU 8TTE - 



;IHC MICH 8TTE IF CARRY 
?JMPTO CRT FOR 1 SECOND TIMEOUT 



A.OA 



•J!2* • F,C£s H0RSE3-SRC MORSE TEST FILE 3 Of 3 
-1115 ? 07-03 -86 09:30 808 ACT IS 3 * 
•1116 



-1117 J ROUTINE: TKSND 
•1118 ; 

7 fWCT, «= SEND A BYTE TO HOST 
-1120 • 
-1121 y ENTRY: 

3l|| f CRD * BYTE TO SEND (NO PARITY) 

-1124 ; EXIT; 
-1125 ; -(A) 
-1126 ; -ctl) 

"1ST •«<> 

-1128 • 

-1129 TMSND: IN A,P2 
-1130 J84 THSNO 

IE ** ** B1 

-1132 CALL CP ARTY 



WAITS FOR TRANSMITTER READY. 



JJNP m MOST COMM. 
?CA) « BYTE 



NEC. NOT READY 
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ISIS-II NCS-48/UPJ-41 MACRO ASSEMSLER, V4.2 MCE 16 

CKA09S ASSEMBLED 2/22/68 ST RLATE ISAACS 

LOC ORJ LIKE SOURCE STATEMENT 

0507 S3C0 ANL A,60CC* 

0509 49 -1135 ORL A,R1 ;<A> * FIKAL SUE WITH PARITT 

050A 6902 tltU MOV R1,fE0CIA 

050C91 -1137 MOVX 8R1.A 

0500-65 «1U8 tE? 

-1139 * wwwwww 

-1140 ; ROUTINE: CPARTT 

•1141 ; 

•1142 ; FUNCTION: COMPUTE PAX ITT OF ALTERNATE SITS OF 6TTE 
•1143 ; 

•1144 ; EMTRTi 

-1145 ; <A> - 6YTE 

•1U6 ; 

•1U7 ; EXIT: 

•1148 ; CA) - PAR ITT 

•1149 ; 67 • IS - 63 « tl - PAR ITT OF 000 UTS 

•1150 ; 66-64-82-80- PAR ITT OF EVEN 6ITS 

•1151 ; •<84> 
•1152 ; 

050E AC -1153 CPARTT: NOV R4,A 

0S0F 47 «1154 SUAP A 

0510 0C -11S5 XRL A,R4 

0511 AC -1156 MOV R4,A 

0512 E7 "1157 RL A 

0513 E7 «11S8 Rt A 

0514 DC -1159 XRL A,R4 

0515 63 -1UO RET 

-1162 ; REXT4: READ 3RD-4TN CHARACTERS 
•1163 ; 

0516 80 »1164 KEXT4: MOVX A. MO ;R£A0 3RD CHAR FROM LSI 3 

0517 47 -1165 SUAP A 

0518 A1 -1166 MOV 3*1, A -PUT 3RD TO 61 618. OF TSC8UF+1 

0519 60 -1167 MOVX A,SRO ;R£AD ATM OtAR 

05U 31 -1168 XCNO A,0R1 ;PUT 4TN TO LO TSCRUF*! 

0511 19 -1169 INC 61 ; POINTS TO TSC8UF+2 NOW 

051C 80 ■1170 MOVX A.3R0 ;REA0 5TK CHAR 

0510 67 •1171 SUAP A 

051E A1 -1172 MOV Sttl.A /PUT STN TO 61 TSC6UF*2 

051 f 60 -1173 MOVX A,SR0 -READ 6TR CKAR 

0520 31 -1174 XCNO A.SRI ;PUT 6TN TO LO TSC8UF*2 

0521 19 -1173 IRC 61 

0522 6804 -1176 MOV (0,404 ft 

0524 60 -1177 MOVX A, SCO ;R0*04N,S«0**>At!TT OECOOE READ OF LSI3 

0525 A1 -1178 MOV 8R1 r A ;PUT PAR ITT DECODE TO TSC8Uf>3 

0526 6801 -1179 NOV 60.6016 

0528 90 -1180 MOVX QRO.A ;FR*RST TO LSI 3 

0529 83 -1181 RET 





-1182 r 










•1183 ; 


ROUTINE: SOCTCM • MATCS SEGMENTS 




-1184 ; 










•1185 ; 


FUNCTION; DETERMINE IF TWO 


SEGMENTS NAVE IDENTICAL DATA At 




•1186 ; 




OAST 4 CKAR 


ICTERS OF SEG AND PAR ITT) 




•1187 ; 










•1188 ; 


ENTRY: 








•1169 ; 


C60> - AD6S OF ONE S3 


: GHENT - CAME FORMAT AS REG 4-7 




•1190 ; 


CTSC8UF+1) « 3RD AMD 


4TR CKAR 




•1191 • 


CTSC8UF42) - STN AND 


6TR OUR 




-1192 ; 


CTSCSUF+3> • DECODED 


PARITT UORO 




•1193 ; 










•1194 ; 


EXITS 








•1195 ; 


<AJ • 


0 FOR MATCR 






•1196 y 


•<R0> 








•1197 • 








052A FO 


•1198 tt 


PTTCR: NOV 


A.0R0 




0526 6951 


•1199 


NOV 


R1,R7SCRUf*1 




0520 01 


-1200 


XRL 


A*SR1 
SCM90 




052E 963A 


•1201 


JXZ 


;JMP • 2ND 6TTE NO MATCH 


0530 18 


•1202 


IRC 


60 




0531 19 


•1203 


IRC 


61 




0532 FO 


-1204 


NOV 


AfflRO 




0533 01 


-1205 


XRL 


A,SJR1 




0534 96JA 


•1206 


JM2 


SGM90 


; JMP • 3RD 6TTE 60 MATCH 


0536 18 


•1207 


INC 


60 




0537 19 


•1208 


IRC 


61 




0538 FO 


•1209 


NOV 


A^SRO 





EP 0 388 560 A2 



ISIS- II NCS-48/UPJ-41 KIOTO ASSOttLEK V4 ? 

«A095 ASSEMBLED 2^1? t^ISMCS 17 



tOC OfJ ttKC SCUtC^ STATEMENT 

0S3A 83 SGK90: tET 

■1212 s 



•1213 f tOITIMEs TMMtT 
■1214 ; 

*1216 J R, " Cr,0,r: f0t "** W EXHAUST 

•1217 • tUXkU 

^gj * "° W> ■ TI«» C20KSEC RES) 

•1220 : EXIT: 

-1221 ; MO ( t7> . 0 

•1222 ; 

0S3J 27 .1225 TMAMT: CU A 

0S3C £2 -1224 atav t « 

0530 25 .1225 ST T^r. ?CteM Ttt T,HER COUNTEK 

3g s "" ,,, s j& 0 

1251 - -i nmu 

0600 1234 ORC 



tT Uf L ^gg£Cifl;rcrcr$.s»c? 



•1242 • EXIT: A « 0 IF EMOUCtf SEGMENTS 

— « as «12<8 at F0 

EE" « 

57 M2S0 CPL A 

0605 F208 «12Si j£r #L^e 

0607 95 .1252 St 2?** ;JWr " «/' 

-1253 °^ F0 ;«T FO IF ttfl-OCK I/f 

0605 883S .1254 CKOfOS: NOV lO,*6srOT 

0&0A FO «12SS m/ A,SR0 

A # t1 

0:0120 ;«»S1ILE UPC-A. CAH-13 OR UPC-D-81C2 

06H69 -1261 Joo 

0612 F62F .1262 ST r£-2™ 

030150 ;PO$SIItE UPC-E OK UPC-D-1UC1 



060t 69 
060C F622 



0618 E695 

06U 8841 
061C FO 



«125S 


NOV 


•1256 


AOO 


■1257 


ic 


-12S8 ; 




•1259 


NOV 


-1260 


NOV 


-1261 


AOO 


-1262 


JC 


•1263 ; 




-1264 


NOV 


•1265 


NOV 


■1266 


AOO 


•1267 


JHC 


•1268 ; 




•1269 OXX10: 


NOV 


•1270 


NOV 


•1271 


AOO 


■1272 


JC 


■1273 




-1274 ; 





-1264 NOV tO.#USTOT 

0616 FO -1265 m, laSS 

0617*9 .,'£1 22: A ;j*° 



tO r #K*STOT 



0610 49 .iff? £ A '*° 

061E F693 .1272 jT 

0620 C495 .1273 £> 225 ;«*SI8U EAJt-8 



£r ° t20: !S «0,ft6STOT 
rrf_ Fg .127* NOV A,dKO 



0628 824F -1282 25 ^« WH DECBOE WTC 

062D C493 .1^ IS 22£? ^ UPC^> SEGNEMT 

-1284 - ;HJKI8U UPC-A OK EAM-W 

Ssli'S 27 0X1005 ;a*c* t6 WFFEK, 
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EP 0 388 560 A2 



ISISMI NCS-48/UPI-41 MAOtO ASSEMBLE*. V4-2 PACE 18 

OO095 ASSEMBLED 2/22/68 BY HAKE ISAACS 

LOC 084 LIKE SOURCE STATEMENT 



0654 9275 -12M J84 OOCMOC ;POSS!BLE UPC-E 

•1289 ; 

0656 6828 «1290 MOV ftO,#L6S2*3 ;OCCCr L6 BUF FE« 2 

0638 F0 »129t NOV A,O»0 

0639 I25F -1292 JB5 OXK40 ;JUNP IF UPC-D SEGMENT 
0638 9293 «1293 J84 OXK0C .-POSSIBLE l*C-E 

0630 C495 -1294 JMP OXWtC 

•1295 ; 

063F 8865 «1296 OCCM40: MOV t0,**6STOT 

0641 FO «1297 MOV A.880 

0642 69 -1298 ADO A,«1 

0643 E695 -1299 JUC OXKttC 

-1300 * 

0645 8858 -1301 CKCK4S: MOV t0,#L4STOT 

;JUMP IF ISM-OOt 
•POSSIBLE UPC-01 



0647 FO 


•1302 


MOV 


A,0*0 


0648 69 


•1303 


ADO 


A,t1 


0649 8695 


•1304 


JFO 


GDCMWG 


0648 F693 


•130S 


JC 




0640 C495 


•1306 
•1307 ; 


JMP 


CBCK8C 


064F 8841 


•1308 CXOCSO: MOV 


R0,ftlST0T 

A«ato 


0651 FO 


•1309 


MOV 


0652 69 


•1310 


ADO 


A,t1 


06S3 E695 


•1311 
•1312 ; 


JSC 


0XK8G 


06SS 8859 


•1313 


MOV 


80,fU4STOT 
A, 060 


0657 FO 


-1314 


MOV 


0658 69 


•1315 


ADO 


A.N1 


0659 F675 


•1316 
•1317 ; 


JC 


CBCK70 


0658 885F 


•1316 


MOV 


K0 # 8M5STOT 


0650 FO 


•1319 


MOV 


A«880 


06SE 69 


•1320 


ADO 


AJtl 


065F F668 


-1321 
-1322 ; 


JC 


OCCM60 


0661 8840 


-1323 


MOV 


K0 # fN2STOT 
A # 880 


0663 FO 


•1324 


NOV 


0664 69 


•1325 


ADO 


AJtl 


0665 8695 


•1326 


JFO 


OQCMtC 


0667 F695 


-1327 


JC 


OOORX 


0669 C49S 


-1328 
•1329 ; 


JMP 




0668 88S3 


•1330 CCO 


(60: MOV 


80,«H3STOT 


0660 FO 


•1331 


MOV 


A,9R0 


066E 69 


•1332 


ADO 


A,t1 ^ 


066F 8695 


-1333 


. J» 




0671 F693 


-1334 


JC 




0673 C49S 


•1335 


JMP. 






•1336 ; 

•1337 CXOfTO: MOV 




0675 8847 


tO,**1STOT 
A^OKO 


0677 FO 


-1336 


MOV 


0678 69 


•1339 


ADO 




0679 E695 


•1340 
•1341 s 


JKC 




0671 8865 


-1342 


MOV 


ft0 # 8V6ST0T 
A, 8*0 


0670 FO 


-1343 


MOV 


067E 69 


-1344 


ADO 


A,B1 


067F F688 


-1345 
-1346 ; 


JC 


OXK80 


0681 88SF 


-1347 


MOV 


B0 # fN5ST0T 


0683 FO 


•1348 


MOV 


A«ato 


0684 69 


•1349 


ADO 




0685 8695 


•1350 


JFO 




0687 F695 


■1351 


X 




0689 C49S 


•1352 
-1353 ; 






0688 8853 


•1354 ocas 


SO: MOV 


tO,8WSTOT 


0660 FO 


•1355 


MOV 


A, 9*0 


068E 69 


•1356 


ADO 




068F 8695 


•1357 


JFO 


OEOWC 


0691 E69S 


•1356 


JVC 




0693 27 


•1359 ; 






•1360 aeon 


X: CUt 


A 


0694 63 


•1361 
-1362 ; 


1ET 




0695 27 


•1363 axw 


fC: Ctt 


A ' 



;P0SS!8L£ UPC-©4 08 05 



;JUMP IF I8M-OCX 
jPOSSIBLE UPC-02 



IF IBM-OCA 
^POSSIBLE UPC-03 



;JUMP IF iBM-OOt 
1 ^POSSIBLE UPC-04 



IF 

;FALL TKftU POSSIBLE UPC -05 

;EBOUC8 SOUS FOB A POSSIBLE SECKE8T 

;M0 POSSIBLE VEKSIOMS VET 
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r 

«W5 ASSEMBLED 2/22/M IT (LAKE ISAACS f 9 
L0C MJ tt«E SOURCE STAT0CJIT 

0697 63 -1365 ret 

- tifC ^">gC;n;COPTKT.CTCl 



■1368 ; ' 

0698 434FS0S9 -1369 M *mr»rrvr . 

069C 52494748 WltlCHT €01987 • 

06A0 S4202643 % 

06A4 2931393d j 

06A8 3720 J 

- 1570 M ^CTtA-msiCS. IK. 

0612 S0485953 - 
06t6 4943S32C 
06IA 20494E43 
O&tC 2Q0 

54S320S2 
C6CC 455WSS2 
0600 $64544 



-1372 
•1373 



0700 «77 etc TDM 



-IM2 ; KVTtNE: SU««T. SUtUX. SUCST 

MsS J S?^**^ °* 2 ,TTE *««T OAT* TO ACOMJULTC* 

IrS; • utn - *° « staat aoosess or SEeerr mrm t« «lT^ 

:g£: 0,15 ?°/j*.??^^ ««^s mt0 " 

-1387 



-1386 , A - mMMuY^^&r^Za, SUFf« DATA 



£E2 * f3a9 « 

225 fS "«90 SUK38T: ADO A,S*0 

0703 18 «f391 fire So 

« * 13W *» A # 9R0 

07D5 18 -1393 I«C KO 

0706 60 .«94 ADO AIM 

0707 83 «U9S 5? ' 

•1396 ■'■■■■•mtninnnjni 1 ii 1 J >>t . t 

S*"'- 8 OOUtU tEM> St* TEST *"***""*" 



-iwo ; rwcrioN.- calculate the label data suk csase hai 

"22 mM * B " 10 « *^'OUSUU£ls«JH 

"1*00 • SAVE TIE DEW SUM 

■MtO ,- LAAEL DATA SUM STOKED ID MSUN 

""2* f *- » OUHHTEU (CONSECUTIVE tXKLS ARE THE SAME) 

SSsjOT ^"^ST i'S,. JCET VERSION f LAC 

07D0 57 -UTO 6A J* jSCOT 6 — F0 * M 

070E 92&C «K11 ju nmi*- 

-1412 ; C * ¥W,C IF FOIKTCft > 9. ILLEGAL VEWU*. 

SUS" TEE SSp ^ «*™ *ADO OFFSET TO TA8EL AOORESS 

0713 6C .1415 DASTlt- M m/ T0 «WI«f tOUTlNE 

£H10 riSI 0Wm " S VALID VEtSlOK. FOIIfTEt-0. 

071$ ID -U17 DC SwttSrtS 

07J6 20 «U18 W SoST 

0717 5£ -1419 Of S MSB 

£718 « -1420 M SSSSl 

071A39 .1422 M tSl SSSf 

J!" 2C .1423 Of tSSSS 

071C23 .1424 M lS SS^ 
-142S • 

OJtD -1426 MtSNA ECU % 

071D 27 « 14 27 DCSH13: CUt A 
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ISIS-II KCS-48/UPI-41 MACRO ASSEMBLER, V4.2 
CMA095 ASSEMBLED 2/22/88 ST SLAKE ISAACS 



PACE 



tOC OBJ 



0720 27 

0721 E4S8 

0723 27 

0724 8860 
0726 fW4 
0728 B84E 
072A E42f 

072C 27 
072D B85A 
072f F404 
0731 B8S4 
0733 F404 
0735 0842 
0737 E44E 

0739 27 
073A MSA 
073C F404 
073E 884E 
07*0 E44E 

0742 27 

0743 8860 
074S F404 

0747 8836 

0749 E4S6 

0748 27 
074C 8848 
074E 

074E F404 

0750 883C 
0752 F404 
0754 882E 
0756 F402 
07S8 8824 
075A F400 
07SC E467 

075E 27 
07SF 8836 
0761 F404 
0763 B83C 
0765 F404 

0767 887C 
0769 20 
076A 00 

0768 83 

076C 27 
076O 63 

076E A3 
076F 83 



LIME 



SOURCE STATEMENT 



•1429 ; 

-1430 DM**: OJt a 

•1451 JNP CtSMTC 
•1432 ; 

-1433 ORSNDS: CLR A 

-1434 MOV R0,«H6S1 

-1435 CALL SUK28Y 

•1436 MOV I0 # #M3S1 

•1437 JNP DtSMSX 
•1438 ; 

•1439 DRSND4: CLt A 

•14*0 MOV R0,RHSS1 

•1441 DRSMSX: CALL SUK28Y 

•1442 . MOV tO # M4S1 

•1443 CALL SUN28T 

-1*44 MOV tO.MISI 

■1445 JNP DISM4X 
-1446 ; 

•1447 0*SH>3: CLt A 

-1448 MOV R0,fKSS1 

•1449 CAU SUK2BY 

-1450 MOV R0.8U3S1 

-1451 JNP 0KSM3X 
•1452 * 

•1453 OJtSNOt: CLR A 

•1454 MOV R0,fN6S1 

•145S CALL SUK28T 

-1456 MOV R0,«t4S1 

■1457 JNP OtSNIX 
-1458 - 

•1459 0RSND2: CLR A 

-1460 MOV R0,fH2S1 

-1461 0RSK3X EOO S 

-1462 DRSM4X: CALL SUH2ST 

-1463 MOV R0,*84S1 

-1464 CALL SUK28T 

•1465 083*71: NOV R0,8R6ST 

-1466 0RSM1X: CALL SUK36Y 

-1467 0RSN7C: NOV R0,fL6Sl 

•1468 CALL SUN48Y 

-1469 JNP OflSKHf 
•1470 ; 

-1471 DCSM8x CLR ' A 

-1472 MOV R0,#L4S1 

-1473 CALL SUN28Y 

-1474 NOV R0,«4S1 

•1475 CALL SUN28T 
-1476 ; 

-1477 DRSMON: MOV RO.fDRSUM 

-1478 XCK A, QUO 

-1479 XRL A,8R0 
•1480 RET 
-H81 ; 

•1482 ORVRKG: CLR A 
•1483 RET 

1484 * «»' » « 



;CO SUN 7 CHARACTERS 



;C0 FINISH THE 05 SUN 



;CO FINISH THE 04 OR 05 SUN 



;C0 FINISH THE 03 SUN 



;CO FINISH THE 01 SUN 



•SUN 7 BYTES 

•SUN 7 CHARACTERS 

•JUNP - THE SUN IS FINISHED 



-SAVE THE NEW SUN IN OR SUN 
•COMPARE THE OLD AND NEW SUN 



.•DOUBLE READ VERSION N/C 



1485 TR0PC7: NOVP AM 

1486 RET 

1487 ORC BOOH 

1488 S IHCLU>E<:F1:VERDLR.S*C> 



•START OF HENORY BANC 1 



0800 8824 
0802 8A12 
0804 0410 



-1489 
-1490 
-1491 
•U92 
-1493 
•1494 
•1495 
•1496 
•1497 
•1498 
•1499 
•1500 
•1501 
•1502 
-1503 
•1504 



; FILE: VERDLB.SRC 6*17-86 17x15 808 ACT IS 

S ■■■■■ ■■lllllJlllllltttM«ltttHt«**tMi»«MMIM«< 

; ROUTINE: CLR6SC 

• UNCTION: CLEAR 6-CRAt SEOCHTS AND COUNTERS. 
S ENTRY: START ADDRESS AND COUNT 18 OCFS TABLE. 
; EXIT: JT**0 i 

i RO « END OF 6-CHAt RUFFER/COUMTER SPACE PLUS 1. 

• R2 ■ 0 • 

; 6-CHAt BUFFER/COUNTER SPACE - 0«S. 

CLR6SC: MOV R0,«F6CST -STARI OF 6-CHAt BUFFER AREA 
NOV 82,fBF6CNT -NUMBER OF BYTES IN BUFFER 
JHP CLRTOO ; JUMP TO THE CLEAR LOOP 
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ISS^JS^S^l^ «A«0 ASSEMBLER, V4.2 PAC £ 21 

«*«5 ASSEMBLED 2722/06 ft 81XCE ISAACS 

"* 0SJ tWE SOURCE STATEMENT 

-1506 ; FUNCTION: CLEAR 4-CKAA SEGMENTS AND COUNTERS 

-t$S i ' g: o WOf •WFER/COUK TER SPACE PLUS 1. 

-1512 ^ ** CMW «*fWC0UOTW SPACE - 0*S. 

080A 0410 .JlJs J! ftiJS 4 " 1 "TTES IN SUFFER 

«S2 ^T,.,^ T0 ° yjlHP TO THE CLEAR LOOP 



•1517; ROUT IKE; CLRSNB 

-1518 ; FUNCTION: CLEAR TNE SCAN BUFFER 

-1S22 jg • C» OF SCtt KfFFEt SFME PLUS 1. 

0810 27 -JS27 CMTOO- S? f-' OF OTES III «IFFE« 

0812 18 -1529 INC NO * 

0813 EA11 .15,0 OJN? R2,CL*SN1 
0815 83 «1S31 r ET * 1 

•1532 



'1533 ; ROUTINE: CLRStF 

i SSI 10 *' aE " WfFER. POINTER AND FLAG. 

-1535 ; ENTRY: START ADDRESS AND COUNT IN D€FS TARLeT 

-1537 J EXIT: A • 0 

"«» ; • END OF SEND BUFFER SPACE PLUS 1. 

3£l ? 2£S «„*fV 0CO, ' $ - TERMINATION BYTES) 

-1543 # ' SET TO PACKED DATA START ADDRESS. 
0816 PC «1544 CLRStF: MOV A R4 

mifT iif 5 ^"^ ; CLEAR SEND BUFFER FULL FLAG 
-1547; 

081A 8866 «154A NOV RO fSiFPtfT 

061C80CE .154? *Z SnSSSL ~ 

•1550 ; »0.#SBSTRT -SET POINTER TO PACKED START ADDRESS 

081E B867 »15SI * mv mn 

0820 BA12 uiUi 2'2£„ ? START Of SEND BUFFER AREA 

0822 23CC .1553 » I j£X" Z ?NUMBER OF BYTES IN BUFFER 

0824 0411 .1554 2£ irSS? 1 * t0 *° TERMINATION BYTES 

•1555 ; ^^! U1 TO THE CLEAR LOOP 

I«S #! ^ll^ Z WV3BT, M0V4BY 



.tec* irrriirr.* i. psikby 

•1557 ; FlMCTION: MOVE BYTES FROM ONE BUFFER TO AMmm ntrrr. 

•1W8; WW: M . FItST .TIE «^KOf ' 

•™ ™Sr«'££^£ r ZL™ -22""- «"»• 



I IS t " - » OF *a*C£ OWFEX A0MESS PIUS 1 . 

"«« I « I ««"«* »"E «0«SS OF DESTINATION OUFFEt. 



-1S&J ; «2 . 0 

-«« ." t'Unim TRANSFEKED 



08Ze W JO .1S6T jhb 2niv.» 

06ZA SA03 .t54S mat,. ZnJ Tyrx 

0B2C04M -ti« * SJSr 

082C M0( .1570 movUT: NOV IP Mi 

0830 FO -1S7I mvmt: NOV "iS 

-t572 «v Sv* 



- 18 -1573 INC NO 

0833 19 .1574 ,S J? 



0836 83 .1576 

•1577 r 



*225 ; * CUT|,l£s «SUM4 # SCSUM6 " ' ""* XJ " ' 

TimS: FUIiCTI0N: » T« OICITS OF A SEGMENT FOR TNE MOD- 10 TEST. 

J ^2 IdTtNe'sIm^ BCD AND ONLY THE ONUS* DIGIT 
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IStS-II MCS-48/UPI-A1 MACRO ASSEMBLES. V4.2 PACE 22 

OU09S ASSEMBLED 2/22/88 RT I LACE ISAACS 

LCC OBJ LIKE SOURCE STATEMENT 

•1503 ; EXIT: RO • MOT CHARGED 

•1504 ; t2 ■ C14CMS ro*cj3 

•1585 ; A ■ C2*C4«C6 CC2*C4) 

•1506 ; f0 IS USED 
-1587 ; 

0837 85 -1588 SCSUH4: CLt FO 

0838 95 -1569 CFl FO ;S£T FO FOR 4-CKAft SUM 

0839 043C -1590 JMP SCSUKX 

•1591 ; 

0838 85 «1S92 SCSUM6: CLt FO ;CLEAR FO FOt 6-CRAR SUM 

083C RAFO -1593 SCSUKX: MOV R2.R0F0M -MASK FOR 000 01 CITS 

083E FO -1594 MOV A,9R0 ;C1 

083F 5A «t595 AKL A,R2 

0840 10 -1596 IMC RO 

0041 60 -1597 ADO A # DRO ;C1«C3 

0042 57 -1590 OA A 

0043 SA -1599 AML A,R2 

0044 0649 -1600 JFO SCSUKT ;JLKf» IF 4-CKAR SUM 

•1601 ; 

0046 10 -1602 INC RO 

0047 60 -1603 ADO A,9ftO ;C1*G3«CS 
0040 57 -1604 DA A 

0049 47 -1605 SCSUKT: SUA? A ;fOT SUM I If LOU 8TTE 

004A AA -1606 MOV R2^A ;SAVE CHCKS IC1*C3J 

•1607 ; 

0048 FO -1608 MOV A,3R0 ;C6 (C4] 
004C CO -1609 OEC tO 

0040 60 -1610 ADO A,9R0 ;C6«C4 (C44C2J 

004E 57 -1611 OA A 

004F R6S4 -1612 JFO SCSUMR ; JUMP IF 4-CKAft SUM 

-1613 ; 

0851 CO -1614 OEC RO 

0852 60 -1615 ADO A,9R0 ;C6«C4*C2 

0853 57 -1616 OA A ij 

0854 63 -1617 

•1616 



-1619 ; ROUTINE: APL3R2 

•1620 ; FUNCTION: ADO 3*R2 TO A. CRCD) 

-1621 ; ENTRY: NO SETUP 

-1622 ; EXIT: A - *>C3*R2> 
-1623 ; R2 • MOT CHANCED 



•1624 

0855 6A -1625 APL3R2: ADO A.R2 

0856 57 -1626 OA A 

0857 6A -1627 ADO A # R2 

0858 57 -1628 OA A 

0859 6A -1629 ADO A,R2 
085A 57 -1630 OA A 
0858 83 -1631 RET 

-1632 



-1633 ; ROUTINE: MO0 104 6-2-06 14:25 ROC ACT IS 

-1634 ; FUNCTION: CALCULATE A CHARACTER MODULO 10 CHECKSUM VALUE 

-1635 ; ENTRY: RO « FIRST RTTE ADDRESS OF SEGMENT TO RE PROCESSED 

•1636 ; EXIT: A « CALCULATED VALUE 

•1637 ; 

085C 1437 -1630 MOD 104: CALL S6SUM4 

065E 1455 -1639 CALL APL3A2 

0860 63 -1640 RET 

■16*1 ; » i — 

-1642 ; ROUTINE: MO0 106 6-2-66 14:25 ROC ACT IS 

•1643 ; FUNCTION: CALCULATE 6 CHARACTER MODULO 10 CHECKSUM VALUE 

•1644 ; ENTRY : RO • FIRST RTTE ADDRESS OF SEGMENT TO RE PROCESSED 

•1645 ; EXIT: A « CALCULATED VALUE 

•1646 ; 

0861 1438 -1647 MO0 106: CALL SGSUM6 
0863 1455 -1640 CALL APL3R2 
0865 63 «1649 RET 

1650 % INCLUDE<:F1:EM0010.SRC> 

•1651 • • 

•1652 ; FILE: EMOD10.SRC 6-17-86 16:25 ROR ACT IS 

•16S3 ; ROUTINE: EMCO10 

•1654 ; FUNCTION: VERIFY THE EM0010 CHECK CHARACTER 

•1655 ; ENTRY: SEGMENT IN SCAN SUFFER 

•1656 s EXIT: USES R0,R1 # R2 # A 

•1657. ; A • 0 IF CHECK CHARACTER IS GOOD 

-16S0 ; A o 0 IF CHECK CHARACTER IS RAD 
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EP 0 388 560 A2 



IS1S-II tO-tt/LPI-<l HUM ASSEMIE* Vi_? _ 
SHAMS ASSEHtLED 2/22/M lr Zmishis 

UK t»i LIKE SOURCE STATEMENT 

^ -1643 ; ^ "° W,T 7H0VE SCAN SUFFEft DATA TO UOKX SUFFER 

MiE TO .,44s mov . ST""""* 



086F 5J0F .1666 JSl l^S. .SET CHARACTER CS 

0673 F27C -1668 jit r£**e« 

S» ?L, OEC A .JWTIFC4-3 

0878 C690 •1671 jr 

«7A«« -ilS £ |gg ^If'SEa,*. 

-1673 ; # jump If C6-5,6,7 # 8,9 

•WW ; FO* C6-0.1,2 COMPUTE 3*<C2*C5*CS>*C1*C4*C6 

087E fO -1677 hqv a OBO 

«80A0 .1679 S/ L aA ;WC1«0C2 

0683 «9t *g£ ;C2.C1,CS.tt,CS.C6 

-1682 ; 

•1683; FCKC6-3 COHPUTC 3*C0HHCS)*C140*C* 
068$ M7A -U85 icASeZz MOV tO # il*IC8U*M 

068A 30 -1689 van * 9M 

0688 FO .,2S 5? ;C6 ^ 

0680 AO .1692 fov gftO A 

^ ^ , to* e£ a^Srf ^^S- 8 -"- 0 

0893 20 -1698 rru « ma . 

0894 47 .JiS Sir J** 0 ,-CS«C6*> 

0695 30 -1700 w» a 

-1701 A#at ° ;C$«0- C6-CS 

.1702 ; *C1.C2,C3.C4.0.CS 

-WW ; «* C6-5,6.7.6,9 COMPUTE 3nC2*C4«C6>*ci*c3*CS 

0696 8879 .1705 ECASE4: MOV t0 # «UIK8UF -el 

0098 1438 .1706 CALL SCSUM6^^ #Cl,C2,C3 # C4 # C5,C6 

069A 2A .1707 XCX A.«2 

-1708 ; * 

•1709 ; FlUXt SUM 

-1710 * 

0091 1*55 .1711 EMQOSM: CALL AP13I2 

■1712 ; 

3m J AOU,tST « ouutacie* 

0090 8823 .1715 OCDCXr MOV KL#SOClUf*3 

.1716 ADO iSo 

00*0 57 .1717 ST A 

06A1 530F .1718 A* A.80FM 

06A3 83 .1719 in 

•172? s ■ ■ ■ ■ ■ ><c ^?f ■ f »; lyff*"** 03 



•1725 ; KOUTIME: CXFCA ™ * CT,$ 

j W " CT,0 " S ^^SeSISSL-"'--- 

3| ; A s ^ e ^r«Er.r- , " c - • £set « *«- 

•1730 ; EITTtYr t«0 * * * fm 

; tXt1: tO # t1> 
MTO ! «r W SCT IF A SEGMENT IS SEEM. 
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ISIS-Il KCS-W/UPl-41 MACRO ASSEMBLER, V4.2 
CKA095 ASSEMBLED 2/22/88 IT 8 LACE ISAACS 



PACE 24 



loc oej 

08A7 8801 

08A9 rc 

08AA 1283 
08AC 80 
08AD F2DF 
08AF 90 
0880 IF08 

0882 83 

0883 80 

0884 F2DF 
0886 02DB 
0888 8920 

08SA 47 
0888 A1 
088C 80 
0880 31 
088E 19 
088F 80 

O8C0 47 
08C1 A1 
08C2 80 
C8C3 31 
08CC 19 
08CS 80 

08C6 47 
08C7 A1 
08C8 80 
08C9 31 
08CA 19 

08C8 8804 
OSCD 80 
08CE S37F 

0800 A1 

0801 037F 
0803 9609 
0805 140C 
0807 0408 



0808 8801 



LINE 



STATEMENT 



•1737 OCFCtO: NOV 


KO.BESttD 




■1738 


NOV 


A,R4 




•1739 


iso 


OCFC20 


•JUMP IF SCANNING BIT IS SET 


-1740 


NOVX 


A,8R0 


-READ 8TTE 


•1741 


JB7 


CXFC9S 


;JUKP IF MOST OATA 


■1742 


NOVX 


0R0,A 


•RESET FXAME CAPTURE 
;SET TME «SEC SEEM* TINEt 


-1743 


NOV 


R7,#EUAIT 


•1744 


RET 


-1745 ; 








-1744 OCFC20: 


NOVX 


A,OR0 


;R£AD tST CMAA OF SECNEMT 


-1747 


J87 


CCFC95 


;JUMP if MOST OATA 


-1748 


486 


CCFC90 


;JUHP IF PERIODICAL CAPTURE 


-1749 


NOV 


R1 # #SCNBUF 




-1750 ; 








-1751 


SUV 


A 




-1752 


NOV 


»1 f A 


;STOt£ 1ST CMAt 


-1753 


NOVX 


A # 3«0 


;I£AO 2M0 CHAM OF SECNEMT 


-1754 


xcw 


A # W1 


•1ST AW 2W0 STORED 


-1755 


IMC 


81 


-1756 


NOVX 


A.ORO 


;8EA0 380 CMAt 


-1757 ; 






-1758 


SWAP 


A 




-1759 


NOV 


OtT.A 


•MEAD^4T^CKAt* 


•1760 


NOVX 


A.8R0 


•1761 


XOO 


A # »1 


;380 AND ATM STOKED 


-1762 


IMC 


81 



•1763 

•1764 ; 

-1765 

-1766 

-1767 

•1768 

-1769 

•1770 ; 

•1771 

-1772 

•1773 
-1774 
•1775 ; 
•1776 
•1777 
-1778 
•1779 
•1780 ; 
•1781 CXFCSO: 
•1782 ; 
•1783 CXFC90: 



IMC 



XXL 
JUZ 



A,»0 
A 

8R1, A 
A,8fl0 
A^OR! 
81 

R0,*EPtDEC 
A # 9R0 
A,f07FN 
fiftl^ 

A.fOTTM 
QCFC80 



CXFC90 
R7,*EUAIT 



;R£AD 5T8 CMAt 

•STORE STM CMAt 
;5T« AMD 6TR STOKED 



;READ r At ITT OEOOOE 8TTE 
;RASX OFF TME UNUSED MIT 
•STORE PARITY DECOOE 80-86 

•TEST FOt MO DECODE. C8AD PAttTT NAP) 
;JUHP IF DECODE IS OK. 
;CLEAft TME SCAN BUFFER 



;SET TME -SEC SEEM- TIMER 



08D0 90 


• 1784 


NOVX 


atO,A ;R£S£T TME FRAME 


08DE 83 


•1785 


RET 




•1786 : 




■» 


08DF ES 


•1787 CTFC95: SEL 


N80 


08E0 143F 


•1788 


CALL 


SDATA 


08E2 FS 


•1789 


SEL 


MSI 


08E3 83 


-1790 


MET 






1791 r 






08E4 A3 


1792 Tl 


COPCfi: HOVP 


A.OA 


08ES 83 


1793 


MET 




0900 


1794 


ORG 


0900N 




179S S 


IMCLUDEC :F1 :HCOMN.SRC> 












■1797 ; 


FILE: MCOM 


K.SRC 4-16*87 OtEV TAUSSIG 




•1798 ; 


NOOIFIEO 8-5-67 REMOVE 713 FROM HANDSHAKE 




-1799 - 


ROUT IRE j M 


CONN — FOR THE IBM 4683 SERIAL IO CHANNEL 




•1800 ; 




COMMUNICATES WITH ZILOC SUPER -8 CHANNEL CONTROLLER 




•1801 ; 


FUNCTION: 


SEND NEXT CHARACTER IN SEND BUFFER TO HOST 




•1802 ; 




CHECK FOR AND RECEIVE COMMAND FROM HOST < SUPER -8). 




•1803 ; 


ENTRY: ISO SELECTED 




•1804 ; 


EXIT: USES R0 # R1 # R2,R3 # A 




•1805 • 






0900 


-1806 MO 


OMN EQU 


S 


0900 OA 


•1807 


IN 


A.P2 


0901 F211 


•1808 


417 


HO0MO5 ;JUMP IF SUPER -8 DOES NOT NAVE DATA 




•1809 ; 








-1810 ; 


PATA AVAILABLE - READ AND SET HANDSHAKE 


0903 8808 


•1811 ; 






•1812 


NOV 


R0,fE$UP8 ; ADDRESS OF SUPER-8 DATA BTTE 
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i2J^i t .!S^ /t * fc, -* t *«0«UR, V4.2 

6MA095 ASSEMBLED 2/22/M BY BLAKE ISAACS 



IOC OBJ 

0906 99ft 
0906 AS 

0909 OA 
090A 37 
090* f209 
0900 8904 



090f 245E 



0911 rc 

0912 721A 
09U 37 
0915 62S0 
0917 F409 
0919 S3 

091A 2650 

091C 1966 
091C f 1 
091 F 97 

0920 67 

0921 11 

0922 A9 

0925 Fl 
0924 S3F0 

0926 03f 0 

0923 C630 

092A n 
092t D3CC 
092D C6S3 

092F F1 
0930 f 633 

0932 47 

0933 530f 
093S At 
0936. D30C 
0938 C6S0 



093A Fl 
093t 2455 



0930 6866 
093F 10 
09(0 8B4A 

0942 Fl 

0943 530F 

0945 07 

0946 6t 

0947 A3 
094* 2455 



094A 
094A 00 
0941 16 
094C OA 
0940 OC 
094E 00 
094F 00 

0950 00 

0951 00 

0952 00 



LIME 

•1814 
«t815 
•1816 ; 
•1817 MCOK03: 
•1818 
•1819 



SOURCE STATE HE If T 



AMI 
NOV 



IN 
CPL 
J87 
ORl 



•1820 
•1621 
•1822 
•1823 
-1624 
•1825 
•1826 
■1827 . 

•1628 K00N05: MOV 



P1,*255-EP12 
RO,A 

A,P2 
A 

RC0HQ3 
P1 # HEPI2 



CHECK RECEIVED OOHHAND 
CKRCY 

SUPER-8 IK RECEIVE MODE - 



FACE 25 



?P12 LOU TO ACKNOWLEDGE RECEIPT Of DATA 
;SAVE 6YTE 



JJIUP UAfT FOR SUPER -6 TO ACKNOWLEDGE 
;Pt2 MI CM TO END HANDSHAKE SEQUENCE 



•1829 
•1830 
•1831 
•1832 
•1633 
•1834 „ 
•1835 NCOK10: J WTO 
•1836 



J«3 

CPL 
JR5 
CALL 
NET 



A,R4 

NCOH10 

A 



BUfMAM 



•1837 

•1838 

-1839 

■1840 

•1641 

•1842 

•1843 ; 

-1844 

•1845 

•1846 

•1847 

•1848 • 

•1849 

-1850 

-1851 

•1852 ; 

•1853 

■1854 

•1855 : 

•18S6 



NOV 
MOV 

at 

INC 
NOV 

NOV 
ANL 
XRL 
JZ 

NOV 
XRL 
JZ 

NOV 



*1,fS8FPNT 

A f a*i 
c 

A 

ORl 
t1 # A 

A,8R1 

A,#OFOH 

A.fOFOM 



A,»1 

A,fETRM6r 

MCOM70 

A,»1 

NCOK20 



;G0 EXECUTE COMMAND 
CHECK FOR OATA AVAILABLE AND SEND 

;JWiP IF SEND BUFFER MAS OATA 

;JUW IF BtlFKAN REQUEST FLAG MOT SET 
;PUT MESSAGE INTO THE COMH BUFFER 

;4UMP IF MOST NOT REAOT 

;6ET POINTER ADO RE SS 
;CET POINTER 

?POT MIIILE POINTER IN CARRT 
; INCREMENT POINTER 
;itTE ADDRESS 

;CET DATA 

;KASK POSSIBLE TERMINATOR FLAG 
yTEST FOR TERMINATOR FLAG, OFXN 
;JUMP IF TERMINATOR FLAG 

;CET OATA AGAIN 



IF TERMINATION BTTE 

;CET OATA AGAIN 

JJOKP IF LOU NIIBLE IS NEXT 



A 

A.fOFN 
R3.A 



SUAP 

•1857 HCDX20: ANL 
■18S8 NOV 
•1859 XKL 
•I860 jz 
•1861 ; 

*iSS I—i**" 00 * CHARACTER FORMAT 
-1863 NCOM40; MOV A,RJ 
•1864 jnp KCDN80 

-1865 ; 

i™**** T « TERMINATOR FLAG BYTE 



;KASK MIB8LE 
;SAVE VIRILE 



;JUKP IF flUJE^ CHARACTER CDOM'T SEND) 
;CET CHARACTER 



-1867 MCOK50; MOV 
-1868 INC 
-1869 MOV 
•1870 ; 

-1871 NCOM60: NOV 
-1872 ANL 
-1873 
-1674 
-1875 
•1876 
•1877 ; 

*J52 ' TERMINATION CHARACTERS FOR IBM-OCR 
-1679MCTBLI EOU t ; TABLE START ADDRESS 



DEC 



RO,«BFPMT 
SRO 

H3 r *L0U MCTBLt 

A.3R1 

A # tOf* 

A 

A,OA 
MCOM80 



;COMM BUFFER POINTER ADDRESS 
; INCREMENT PAST TERMINATION FLAG BYTE 
; IBM-OCR TAiLE ADDRESS 

;CET TERMINATION FLAG BTTE 
;NA$K VERSION POINTER. 1 TO 9 
; AD JUST POINTER, 0 TO 8 
; VERSION POINTER ♦ TABLE ADDRESS 
;CET TERMINATION CHARACTER 



•1881 
•1882 
•1683 
•1884 
•1885 
-1886 
-1887 
•1888 
•1889 j 



OR 
Of 



06 
08 
OB 
OS 



ODN 
16N 

cam 

OCN 
00* 
OON 



A 

; « 
; e 
; 8 

; 01 # MOT DEFINED 
: 02 # MOT DEFINED 
; 03 # MOT DEFINED 
J 04, NOT OEHMtD 
2 05. NOT DEFINED 



48 



EP 0 388 560 A2 



ISIS-II KCS-48/UPI*41 KACBO ASSEMBLE*, V4~2 
CKA095 ASSEMBLED 2/22/86 ST BLAKE ISAACS 



70 



75 



20 



25 



30 



35 



AO 



45 



50 



tOC OBJ 
0953 2380 



0955 S808 

0957 90 

0958 37 

0959 F2SD 
095B UU 
0950 83 



095E 
095E ft 

095F 03T1 
0961 9666 
0963 99Cf 

0965 83 

0966 ra 

0967 0312 
0969 966€ 



LIKE 



SOURCE STATEMENT 



55 



0980 S822 
098f FO 

0990 47 

0991 C8 

0992 20 



•1891 KC0K70 
•1892 ; 

•1893 ; SEND FOXMATED CXAAACTEft 
•1894 NCOKSO: MOV AO, 
•1895 MOVX »0,A 

•1896 CPL A 

•1897 J%7 NC0N90 

•1898 CAU CLXSSF 

•1899 HC0N90: BET 
-1900 



PACE 26 

;EOT uim dummy DATA COON VITN B7 SET) 

to suret-6 

;C<mVT FOBMATTED CHAXACTEt 

;JUKP IF MOT END OF OATA 
;CLEAA SEND BUFTO, ETC 



•1901 ; touTiKE: exxev 

•1902 ; FUNCTION: CNECK 8ECEIVED BYTE i 
•1003 i ENTBV: BO IS BECEIVED BYTE 
-1904 ; EXIT; COMMAND EXECUTED 
•1905 ; 

•1906 CKXCV COO S 



i ABO EXECUTE IT 



•1907 
•1908 ; 

•1909 caevi: XXI 

•1910 JUZ 

•1011 AMI 

•1912 BET 
•1913 ; 

•1914 CXNCV2: MOV 

•1915 XXL 

•1916 JUZ 



A # BO 

A,NENSCAN 

CXXCV2 ;ak> if hot enable scanning command 

M,#OFFN-ELASDB ;TURN OM LASES 



A,B0 

A, BOX SCAN 
CKXCV3 



0968 8910 


-1917 


OBL 


Pl.NELAStt 


0960 83 


•1918 


BET 




•1919 ? 






096E F8 


•1920 CKXCV3 


S MOV 


A # BO 


096F 03U 


-1921 


XXL 


A«#EVt£EP 


0971 9677 


■1922 


4UZ 


CXXCV4 


0973 OS 


•1923 


SEL 


BB1 


0974 AS 


-1924 


MOV 


B3.A 
BBO 


0975 C5 


-1925 


SEL 


0976 83 


•1926 
-1927 - 


BET 




0977 ra 


•1928 CKXCV4: MOV 


A,XO 


0978 0318 


•1929 


XXL 


A,NOIS£EP 


097A 0681 


•1930 


JUZ 


CXXCV5 


097C 37 


•1931 


CPL 


A 


0970 05 


-1932 


SEL 


BB1 


097E At 


•1933 


MOV 


*3.A 
BBO 


097F CS 


•1934 


SEL 


0980 83 


■1935 


BET 






•1936 ; 
■1937 CKXCV5: 






0981 F8 


MOV 


A.NO 


0982 0332 


■1938 


XXL 


A,NCOMN$T 


0984 9689 


•1939 




CXXCV6 


0986 E5 


-1940 


SEL 


MBO 


0987 0400 


•1941 
•1942 • 




XSTTBP 


0989 F8 


•1943 CKKCV6: 


MOV 


A,BO 


098A 0377 


•1944 


XXL 


A,*1FXSKG 




-1945 ; 




098C 83 


•194* CCBCV9: BET 





;JUMP IF MOT DISABLE SCANNING COMMAND 
;TUKN OFF LASEX 



;JW IF MOT ENABLE TONE COMMAND 

;SET TONE ENABLE FLAG TO 0 CENABLE TONE) 



, W IF NOT DISABLE TONE COMMAND 
;A IS OFFN NOV 

;SET TONE ENABLE FLAG TO 1*S CO I SABLE TONE) 



yJUNP IF MOT BESET COMMAND 



1947 S 
-1948 ?« 
-1949 • 
-1950 ? 
-1951 ; 
' -1952 ; 

•1953 ; 

-1954 ; 

-1955 j 

•1956 ; 

•1957 ; 

•1958 s 

-1959 ; 

•I960 ; 

-1961 • 

•1962 

•1963 

-1964 

-1965 

-1966 



MCUBEC:F1:fft0CSC~SXC) 



;INTEKFACE BOM SUM COCO 
; INVALID 



C ADDED 1/21/88) 
OF BOM excaxo 



riLE: PtOCSC - gtC 07-03-86 15? IS SOB ACTIS 
NOUTINE: SUP4SN, SUP6SN 

FUNCTION: SUAP CBEVEBSE) OBDEB OF PACKED CXABACTEBS IN SCAN SUFFEX. 
SU*4SX SWAPS CXABACTEBS IN SCNSUf*1 AND SCXSUF+2. 
SMP6SN SIMPS CBABACTEBS IN SCNBUF. SCNSUF+I AND SCNBUF*2„ 
CLEANS BACKHAND BIT IN THE PAX ITT DECODE BYTE SC*8UF*3. 
ENTBTr BO SETUP 
EXIT: CXAXACTEBS SHAPED. 

BO - SCVBUF+3 (PAX ITT DECODE BYTE ADOBES?) 
BACXUAXD BIT IS CLEANED. 

a * paxitt OEcooe byte 

MOV BO,BSaC8UF*2 

NOV A^OBO 

SUAP A 

DEC BO 

XCH A.9B0 
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BNSOOC1D: <EP 0388560 A2_l_> 



EP 0 388 560 A2 



ISIS- 1 1 MCS-48/UP1-41 KAOtO ASSEMBLER V4 2 
«A095 ASSENtlED 2/22/88 IT tlAtt ISAJU3 



PACE 27 



loc aw 

OW 18 

0995 AO 

0996 24A6 

0996 8622 
099A f 0 
0991 47 
099C C8 
0990 20 
099E 47 

099f 20 

09AO C8 

09A1 20 

09A2 47 

09A3 13 

09M 16 

09A5 AO 

09A6 16 
09A7 FO 
09A6 53IF 
09AA AO 
09AS 4409 



LINE 



SOURCE STATEMENT 



INC 



09ad ro 

09AE 97 
09AF 0310 
0911 F6C0 
09tl 2O0 

0915 FO 

0916 47 

0917 97 
09S8 0310 
096A F6C0 
09BC 47 



AO 
09IE 16 
091F 10 

09CO 65 



•1966 
•1969 
•1970 JHP 
•1971 ; 

•1972 SUP6SN: NOV 
■1973 mov 



•1974 
•1973 
•1976 



SUAP 
DEC 



KC 
KDC 



•1978 
•1979 
•I960 
-1981 
•1962 
•1963 
•1964 
•198S 

•1966 SUPXEX: INC 



INC 
INC 
NOV 



•1967 
•1988 
•1969 
■1990 
•1991 • 

•1992 ; ROUTINE 



MOV 



MOV 



to 

»0,A 
SUPXEX 

R0,*SCN9UF*2 

A,©A0 

A 

to 

A,SRO 

A r atS 

tO v 
A.DRO 
A 

to 
to 

&RO tf A 

to * 

A,8R0 

A,*2S5-EDECSIC 
8R0,A 



•1993 ; 
•1994 ; 
•1995 : 
-1996 ; 
•1997 • 



ENTRY: 
EXIT: 



at 

400 



•1999 

-2000 

•2001 

•2002 

•2003 ; 

•2004 ; 

-2005 - 
•2006 - 
•2007 - 
-2008 • 
•2009 ; 
•2010 iKCKffl 
■2011 
•2012 
■2013 
•2014 J** 
•2015 ; 

■2016 IKCLNt: MOV 
"2017 simp 
■2018 cut 
■2019 ADO 
•2020 jc 
"2021 SIMP 
-2022 • 

■2023 INCX90: MOV 
■2024 INC 
•2025 INC 
•2026 i 

■2027 INCXRT: RET 
■2028 



INCNN1. IRONS 

FUNCTION: INCREMENT SEGMENT COUNTERS. 

RICN NltllE IS SEGMENT 1U0 COUNTER 
TEtMtNAL COUNT IS 15. (Of*) 
IF NOT ALREADY TERMINAL COUNT, INCREMENT THE SEGMENT 
COUNTER AND TOTAL COUNTER. smMtmxj SEGMENT 
tO - PACKED SEGMENT COUNTER MOMESS 
R0*1 - SEGMENT TOTAL COUNTER ADDRESS 
IF NIttLE HAS INCREMENTED: 

RO - SEGMENT TOTAL COUNTER ADORESS 
A « PACKED COUNTER 
CARRY • CLEAN 
IF NIttLE IMS ALREADY OFN: 

tO • PACKED SEGMENT COUNTER ADDRESS 
A • NOT DEFINED 
CARRY « SET 



a,sr6 

c • 

A,*TQ* 
I NCXRT 
INCX90 

A.OR0 
A 

c •"■ 

A,#10N 

INCXRT 
A 

9R0 # A 

RO 

8R0 



;CET PACKED COUNTER 

; INCREMENT NICK NIttLE 
;JUMP IF ALREADT OF OK 



;JUHP IF ALREADY OOFN 

;UFDATE 1NE PACKED COUNTER 
; INCREMENT TOTAL COUNTER 



EXIT: 



w „ - 80UTINE: MC*2»T, MCN3AY, MCN46Y 
m SS! • MICTION: COMPARE 6YTES IN ONE tUFFFft lftT« a ttNMM 

tl * FItST 8YTE ADORE SS. OF SECOND tUFFEK 
IF SUFFER ONE EQUALS SUFFER TwP 

™ * 25 SJ r,R$T ADDRESS PLUS 1. 

M - END OF SECOND SUFFER ADDRESS PLUS 1. 
R2 * 0 
A « O 

IF SUFFER ONE DOESN'T EQUAL SUFFER TUO- 

« ! 52 21 5* C0UW -* STTE AOOtESS 

tl « SUFFER TK> •NOT EQUAL* SYTE ADDRESS 
12 o 0 
A o 0 



•2032 _ 
■2033 * 
■2034 ; 
■2035 ; 
-2036 ; 
•2037 ; 

•2036 ; 

•2039 * 

•2040 ; 

•2041 ; 

•2042 ; 

■2043 ; 
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IS1S-II KCS-48/UPI-41 KUXO ASSEMBLER, V4.2 
GKA095 ASSEMBLED 2/22/85 IT SLATE ISAACS 



FACE 26 



IOC 080 

09C3 24CS 
09CS 8A03 
09C7 24CS 
09C9 BACK 
09C* f 0 
09CC 01 
09CD 9603 
09CT 18 

0900 19 

0901 (ACS 

0903 83 

0904 A3 

0905 83 



OA00 2480 
0AO2 2498 

OA04 S823 

0AO6 ro 

OA07 C6S0 

0*09 8228 
0AO8 9230 
0A00 530f 
OAOF 0300 
0A11 57 
0A12 9219 

OAW 

oau ro 

0A1S 0202 
0A17 6400 

0A19 3245 

oau ro 

0A1C 0200 
0A1E 1224 
0A20 883A 
0A22 4451 
0A24 8840 
0A26 4451 

0A28 530F 
0A2A C614 
0A2C FO 
0A2P 0200 
0A2T 330F 
0A31 0336 
0A33 A3 
OA34 AS 
OASS 44S1 
0A37 46 
0A38 4C 
0A39 52 
0A3A S8 
OASS S£ 
0A3C 64 

0A3D 0202 
0A3F 1466 
0A41 964E 
0A43 6400 

0A45 ro 

0*46 0202 



LINE 

■2045 
■2046 
•2047 
•2048 
■2049 
■2050 
■2051 
■2052 
■2053 
•2054 
-2055 
•2056 
•2057 
•2058 
•2059 
-2060 ; 
■2061 ; 
-2062 ; 
-2063 ; 
■2064 ; 
-2065 ; 
■2066 • 

■2067 ; ENTRY: 
■2068 ; EXIT: 



SOURCE STATEMENT 



MOGlT: NOV 
OMP 

MCM48T: MOV 
MCNXST: NOV 
XXL 
0X2 
IMC 
INC 
00X2 
Ts SET 



B2,« 



82.84 

a,s*o 
a # »i 

MCXXBT 
80 

81 

R2,MCKX8Y 



;OUNP ir NOT EQUAL 



NET 



ROUTINE: 
FUNCTIONS 



prccsg 

CKECX ro* SCAN SUFf Et DATA.. 
SUA? SCAN SUFFER DATA IF 8ACKIM80S. 
CHECK rot MISMATCHES. 

MOVE SCAN SUFFER TO PROPER SEGMENT BUFFER. 
INCREMENT SEGMENT AND TOTAL COUNTERS. 
NO SETUP 
USES R0,R1,R2,R3,A 



-2070 SUP4S0: OMP 
-2071 SUP6S0: J*P 

-2072 ; 

•2073 PRCCSG: MOT 
-2074 MOT 
-2075 02 
•2076 ; 

-2077 SUPXST: 0S5 
-2078 084 
-2079 AMI 
-2080 ADO 
-2081 DA 
-2082 084 
-2083 ; 

-2084 P8CC3L EOU 
■2085 PRCCD: NOV 
-2086 086 
-2087 JNP 
-2088 ; 

■ 2089 PR0C05: 081 
-2090 PROC8: MOV 
-2091 086 
■2092 080 
■2093 PtOCSL: NOV 
-2094 ONP 
-2095 P80C8R: MOV 
■2096 OMP 
•2097 ; 

■2098 PROCDX: AHL 
•2099 02 
•2100 PRCCDN: MOT 
•2101 086 
-2102 ANL 
•2103 ADO 
•2104 NOVr 
•2105 MOT 
•2106 ONP 
•2107 PRCCNT: 08 



SUP4SN 



so,tsatsuf*3 

A,8R0 



PROCDX 

MOCE 

A,tOTN 

A # «0 

A 



S 

SUP6SJ 



;CET PAR ITT DECODE 8TTE 
;JUKP IF MO DATA 

•JUMP IF UPC-0 SIT SET 
;JUMP IF UPC-E BIT SET 

.-SETS CARRT FLAGS FOR DA 

;OUMP IF DECODE > 9 

; PROCESS AN EAM-13-1 
; PROCESS A D -SEGMENT 
;JUKP ir SACCUAROS 



;JUMP IF UPC-A 
•EAM-8 COMES HERE 
;OUMP IF BACCUARDS 
;OUMP IF EAH-C-R 

•CO PROCESS A 4-CMAR SEC 



;OUNP ir UPC-0 SEC 
A # 8R0 
SUP4S0 

A,fOTM .-PROCESS N(1> TO NC6> SECS 

A, SLOT PRCCMT-1 

A,3A ;CET THE SEGMENT COUNTER ADDRESS 

R3,A 

PR04CN 



PRCCA 
A,8R0 
SUP4S0 



tt.tUSCMT 
PR04CM 
83,*R4SCNT 
P804CM 

A # «0fN 



•2108 
•2109 
•2110 
■2111 
•2112 
-2113 
-2114 
■2115 
-2116 
•2117 
■2116 
•2119 
•2120 



08 



D8 



LCV N2SCNT 
10(1 N3SCNT 



PROCE: 086 



0N2 



PRCCA: MOV 



LOU NSSCMT 
LOU N6SCMT 

SUP6SJ 
EMCO10 



PR07CS 
A,9R0 



;OUMP IF EMOD10 TEST FAILED 
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BP 0 388 560 A2 



ISIS-II MCS-48/UPI-41 MACRO ASSEMBLES, V4.2. 
CMA095 ASSEMBLED 2/22/88 ST SLAKE ISAACS 



PACE 29 



IOC CCJ 



0A4C 4495 

0M£ T40C 
0A50 83 



0A51 rt 



LINE 



SOURCE STATEMENT 



OAfif Ft 
OA90 17 
0A91 AS 
©A92 10 
OA93 444E 



-2122 PROCAL: JMP 
•2123 PROCAR: JMP 
•212* ; 

-2125 PROCEX: CALL 
■2126 PROCRT: RET 
•2127 ? 



PR07CN 



;00 CLEAR THE SCAM BUFFER 

;R£TUM FROM PtOCESS SEGMENT tOUtlKE 



•2128 ; 
•2129 ; 
•2130 ; 
•2131 ; 
•2132 ; 
•2133 ; 
•2134 ; 
■2135 ; 
•2136 ; 
•2137 ; 
•2138 ; 
•2139 ; 
•2t40 " 
■2141 PR04CN 



ROUTINE: PR04CN 

FUNCTION: PtOCESS 4-CSAR SEGMENTS C2 SITES) 
CNECCS FOR MISMATCHES. 

MOVES SEGMENT FROM SCAM SUFFER TO SEGMENT SUFFER. 
INCREMENTS SCAN AND TOTAL COUNTERS. 
ENTRY c R3 * PACKED SCAN COUNTER AOORESS 
R3-4 * SCAN 1 SUFFER AOORESS 
13-2 « SCAN 2 SUFFER AOORESS 
R3*1 » TOTAL COUNTER ADDRESS 
SEGMENT PROCESSED 



EXIT: 



SCAN SUFFER CLEARED 
USES R0,R1,R2,R3,A 



MOV 



OA52 AS 


•2142 


MOV 


0A53 FO 


•2143 


MOV 


OA54 530F 


■2144 


ANL 


0*56 8821 


•2145 


MOV 


OAS8 9662 


■2146 
•2147 • 


JN2 


OASA Ft 


-2148 


MOV 


OA5S OSFC 


-2149 


ADO 


OASD A9 


•2150 


MOV 


OASE 1426 


•2151 


CALL 


OA60 446A 


•2152 


JMP 




•2153 - 




OA62 FS 


•2154 PR04C2: MOV 


OA63 03FC 


•215$ 


ADO 


0A65 A9 


•2156 


MOV 


0A66 34C1 


-2157 


CALL 


OA68 9670 


■2158 


JNZ 




■2159 ; 
-2160 PR04C3: 




0A6A FS 


NOV 


0A6S AS 


-2161 


MOV 


0A6C 34SS 


■2162 


CALL 


OA6E 444E 


-2163 


JMP 




•2164 ; 
-2165 PR04C4: 




OA70 FS 


NOV 


0A71 A8 


•2166 


MOV 


OA72 FO 


•2167 


MOV 


OA73 S3F0 


-2168 


ANL 


©A75 B821 


-2169 


MOV 


OA77 96S1 


-2170 
•2171 ; 


JNZ 


OA79 FS 


•2172 


MOV 


OA7A 03FE 


-2173 


ADO 


OA7C A9 


•2174 


MOV 


OA70 1426 


•2175 


CALL 


OA7F 4489 


-217* 
•2177 ; 


JMP 


OAS1 FS 


■2178 PR04C6: 


MOV 


OA82 03FE 


■2179 


ADO 


OAM A9 


-2180 


MOV 


OAfiS 34a 


■2161 


CALL 


0*87 968F 


-2182 
•2183 ; 


JNZ 


OA09 Ft 


•2184 PC04C7: 


MOV 


OASA AS 


•2185 i 


NOV 


OAJBS 34AD 


•2186 


CALL 


OASD 444E 


•2187 


JMP 



A,*3 
RO,A 
A,ORO 
A,*OFR 

ftO,#scmuF*i 

PR04C2 

A t R3 

A.f-4 

R1,A 

N0V28T 

PR04C3 

A r R3 

A.R-4 

R1,A 

MCN2ST 

PR04C4 



;C£T S2/S1 PACKED COUNTS 



;JUMP IF SCAN 1 COUNTER o 0 
;SCAN 1 COUNTER - 0 



;SCAN 1 COUNTER o 0 
;SCAN 1 SUFFER AOORESS 
;JUMP IF NO MATCH 



A,R3 
RO,A 
INCLNt 



A.R3 

RO,A 

A.ORO 

A # fOfON 

R0 4 #SCMSUf*1 



A,R3 

A,#-2 

«1,A 

M0V2ST 

PR04C7 

A.R3 

A.f-2 

Sl.A 

MCN2SY 

PR04C8 

A.R3 
K0,A 
IRCNNS 



•2188 ; 

■2189 PS04C8: MOV 

■2190 INC 

-2191 MOV 

■2192 INC 

-2193 JMP 
-2194 



A,t3 
A 

R0,A 

mo 



; INCREMENT SCAN 1 COUNTER AND TOTAL 
;SCAN 1 SUFFER DOESN'T MATCH 

>;JUMP IF SCAN 2 COUNTER o O 

?SCAN 2 SUFFER ADDRESS 

;SCAN 2 COUNT o O 
;SCAN 2 SUFFER AOORESS 
;JUMP IF NO MATCH 

; INCREMENT SCAN 2 COUNT AND TOTAL 

jNEITNER SCAN SUFFER MATCHED 

; TOTAL COUNTER AOORESS 
; INCREMENT TOTAL COUNTER 



-2195 ; ROUTINE: 
-2196 7 FUNCTION: 
■2197 ; 



PROCESS 6-CNAR SEGMENTS <3 SYTES) 
CNECCS FOR MISMATCHES* 
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EP 0 388 560 A2 



ISIS-I1 MCS~48/UP|*41 MACRO ASSEKILER, V4.2 
CMA095 ATCEfQUD 2/22/85 8T SLAKE ISAACS 



PACE 



toe Offj 



CAI9 142A 
OAM 44C1 

OAIO JXC5 
OAir 96C7 

oaci uyi. 

0AC5 34AD 
0AC5 444E 

0AC7 8835 
0AC9 10 
OACA 444E 

OACC AS 
OACO 83 



0100 M2C 

o*o2 ro 

Of OS SSOf 
0805 0924 
OSOr 0820 



0808 142E 
6413 



OtOf 34C9 
Otll 0519 

081S S82C 
0815 S48S 
0817 UXB 

0819 BS2C 



LIME 



SOURCE STATEMEKT 



"2199 ; INCREMENTS SCAN AMD TOTAL COUNTERS. 

•2200 : ENTRY: «0 SETUP 

■2201 ; EXIT: SEGMENT IS PROCESSED 
•2202 ; SCAN SUFFER CLEARED 

■2203 ; USES R0,R1 # R2,R3 # A 

■2204 ; 



;CET S2/S1 PACKED COUNTS 



0A9S 8834 


•2205 PRO&CM: MOV 


R0,fl6SCIfT 
A,WO 


CA97 FO 


■2206 MOV 


0A98 SSOF 


•2207 AMI 


A«fOFH 


0A9A 892E 


•2208 MOV 


R1,ff*6S1 


0A9C 8820 


•2209 MOV 


RO,*SCHtUF 


0A9E 96A4 


-2210 JUZ 


PR06C2 




•2211 ; 




OAAO 142A 


•2212 CALL 


M0V38Y 


0AA2 44A8 


•2213 JMP 


PR06C3 




•22H ; 

•2215 PR06C2: CALL 




OAM 54CS 


MCHS8T 


0AA6 96AE 


-2216 JUZ 


PR06C4 




-2217 ; 

•2218 PR06C3: MOV 




0AA6S&34 


R0,ft6SOCT 


OAAA 3415 


•2219 CALL 


IMCLNB 


OAAC444E 


■2220 JMP 
•2221 ; 


P80CEX 


OAAE 8834 


•2222 PR06C4: MOV 


R0,fR6SCMT 


0A80 FO 


■2223 MOV 


QUI S3F0 


•2224 AVt 


A 9 80fOM 


003 8931 


•2225 MOV 


R1,fR6S2 


0A8S 8820 


•2226 MOV 


RO.PSWHUF 
PR06G6 


0U7 9680 


•2227 JUZ 



CALL 



CALL 



-2229 
•2230 
•2231 ; 
-2232 PR06C6 
-2233 
•2234 ; 
-2235 PR06C7: MOV 
• 2236 CALL 
•2237 JXP 
•2238 ; 

•2239 PR06C8: MOV 
-2240 INC 
-2241 JHP 
•2242 

•2243 TROPCA: MOVP 
-2244 RET 
•2245 ORG 
•2246 



M0VS8T 
PR06C7 

MCK3BT 
PR06C8 

R0«8R6SCHT 

INOW8 

PROCEX 

R0;flR6ST0T 
SRO' 



IF SCAN 1 
rSCAM 1 COUNTER - 0 



rSCAM 1 COUNTER <* 
;JUNP IF NO MATCH 



; INCREMENT SCAN 1 COUNTER AM) TOTAL 
;SCAN 1 SUFFER OCESM-T MATCH 

J JUMP IF SCAN 2 COUNTER o 0 



;SCAN 2 COUNTER o 0 
xJUMP IF NO MATCH 



^INCREMENT SCAM 2 COUNT AND TOTAL 



; NEITHER SCAN SUFFER MATCHED 
; INCREMENT TOTAL COUNTER 



A.3A 



ROUTINES 
FUNCTION; 



•2247 ; 
-2248 ; 
•224? ; 
•2250 ; 
■2251 • 
• 2252 ; 
•2253 • 
•2254 ; 
•2255 ; 
-2256 ; 
•2257 PR07CH: MOV 
•2258 MOV 
-2259 ANL 
■2260 MOV 
•2261 MOV 
•2262 JXZ 
■2263 ; 
-2264 



PR07CN 

PROCESS 7-CMAR SEGMENTS <4 8TTES) 
CNECCS FOR MISMATCHES. 

MOVES SEGMENT FROM SCAN BUFFER TO SEGMENT BUFFER. 
INCREMENTS SCAN AMD TOTAL COUNTERS. 
ENTRY 1 MO SETUP 
EXIT: SEGMENT IS PROC ESSED 
SCAN SUFFER CLEARED 
USES R0,R1.R2,R3 # A 



R0 # fL6SCMT 
A # SRO 
A,*OFN 
R1,#L6S1 
RO.I 



;CET S2/S1 PACKED COUNTS 



■2266 ; 

-2267 PR07C2S CALL 
•2268 JM2 
-2269 ; 

■2270 PR07C3: MOV 
• 2271 CALL 
• 2272 jkp 
•2273 ; 

•2274 PR07C4: MOV 



PROTCS 



MCM48Y 
PROTC4 



80 f fL6sorr 



80,*L6SCNT 



IF 

rSCAM 1 COUNTER • 0 



;SCAN 1 COUNTER 0 
; JUMP IF MO MATCH 



•INCREMENT SCAN 1 COUNTER AND TOTAL 
♦SCAN 1 BUFFER DOESN'T MATCH 
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EP 0 388 560 A2 



CMA095 ASSEMBLED 2/Z2/M BY SLAKE ISAACS 



MCE 31 



LOC Of J 

081C 53F0 
OB1E 1928 
0820 8820 
0822 9628 

0824 142E 
0826 642C 

0828 3409 
082A 9632 

082C 882C 
OB2E 34A0 
0830 444E 

0832 882D 

0834 10 

0835 444E 



LINE 



SOURCE STATEMENT 



ANL 



MOV 
JN2 



-2276 
•2277 
■2278 
•2279 
•2280 
-2281 
•2282 
•2283 ; 

•2284 F*07C6: CALL 
•2285 jkz 
■2286 • 

•2287 PR07C7: MOV 
— *2288 CALL 
•2289 jhp 
•2290 ; 

•2291 F407C8: MOV 
•2292 IMC 
•2293 
2294 $ 
■2295 



A,i 
R1,*L6S2 

80 # rjcKtuf 

K07C6 



CALL M0V48T 



KCM48T 
PR07C8 

RO,fusc«r 

INCRMS 



R0,*L6STOT 
PRO 

JNP PROCEX 
IMCUOECsn sVERTAC.SRC> 

»'»Mlt»« »i 



;JtM> IF SCAM 2 COUNTER o 0 



;SCAK 2 COMTEK o 
JJUMP IF MO MATCH 



INCREMENT SCAM 2 C0UMT AMD TOTAL 



jMEITNER SCAM BUFFER MATCHED 
fINCREHENT TOTAL COUNTER 



FILE: VERTA6.SRC 12*09*86 13:50 BOB ACT IS 



0837 F0 

0838 530F 

0838 FO 
0B3C 47 
0830 S30F 
0B3F C64S 

0841 37 

0842 17 

0845 6A 
0844 83 

0B45 97 

0846 A7 

0847 83 



•2296 w 
■2297 

■2298; ROUTINE? CCKAJ 

*52 n * CTIOI<: ©CTE8KIME MAJORITY SECNEMT COUNTER 

•2300; ENTRY.- RO • PACKED COUNTER ADORESS 

■2301 ; EXIT: RO - MOT CXAMCED 

■2302 ; USES R2,A 

^303 ; CARRT SET IF L0U~MICN NIBBLE CSlCNT>«*2CNtt 

^304 f CARRT CLEAR IF LOV<«ICM MIBBLE CS1CNtS££ 

■2306 CRMAJ: MOV A.ORO ;C£T PACKER COUNTER 



0B48 FO 


-2336 C 


0849 C66F 


■2337 






0B4B F8 


•2339 


0B4C 17 


■2340 


0840 A9 


•2341 




•2342 • 


0B4E FO 


•2343 


0B4F 530F 


•2344 


0851 AA 


-2345 


0852 01 


■2346 


0853 C66F 


•2347 




•2348 ; 


0855 F1 


■2349 


0856 07 


•2350 


0857 OA 


•2351 



•2307 

•2308 

•2309 

•2310 

•2311 

•2312 

•2313 

•2314 

•2315 

•2316 
■2317 ; 
•2316 CKHAJ9 
■2319 
•2320 
•2321 
•2322 
•2323 
-2324 
•2325 
-2326 . 
-2327 ; 

•2328 ; EXIT: 
■2329 • 
■2330 ; 
-2331 ; 
-2332 ; 
■2333 ; 

■2335 



SWAP 

AMI 

JZ 

CFL 

INC 

ADO 

RET 

CLR 
CPL 
RET 



A.i 
R2,A 
A # ORO 
A 

A,R0FM 
CCNAJ9 
A 
A 

A,R2 



;S1CNT 



;NASR S2CNT 
;*MP IF S2CMU0 

;2»S CON* S2CNT 
;StCNT-S2CNT 



;S2CNT-6 IS A SPECIAL CASE 



ROUTINE: 
FUNCTION 







ENTRf: SCAN 



CKMIS* 

2555 2* 1X0655 MI8MATCMED SECMERTS. 
.S^LiSS 188 * IF ***** MISMATCHES. 
IN 1 COUNTER MAS THE MAJORITY SEOCMT COUNT. 

.if! 1 • 1™* «»«NT COUNTER ADORERS. 

USES R1 t R2 f A 

RO - NOT CHANGED 

IF TOTAL-MAJORITY <0 MISMATCHES) 

2 2£« •i2 AJ0 " ,Tf ° «**A«30 AND MAJOR ITY>*3 
TMEM £i£ m ^™* lJr i2 WS,UTC,C > *"> MAJORITT>«15 
ELSE COUNTERS ARE CLEARED. 



CRKISM: MOV 



INC 



XRL 



MRO 
COCS90 

A.RO 
A 

RM 

A.0R0 

A,fOFR 

R2,A 

A # OR1 

CKMS90 

A,3R1 

A- • 

a:r2 



^JWNP IF S2/S1 COUNTERS^ 



rSCAM TOTAL COUNTER ADDRESS 



;NASX SI COUNT 
;SAVE MAJOR ITT COUNT 



;JUMP IF TOTAl^AJORITT CO MtSMATCNES) 
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EP 0 388 560 A2 



ISIS- II MCS-46/UPI-41 MACRO ASSEX8LEK, V<T? 
CMA09S ASSEMBLED 2/22/88 BY BLAKE ISAACS ' 



FACE 52 



LOC <*J 



0B5A F1 
OtSI 07 
065C 07 
OtSO OA 
06SE 966C 



0060 FA 

086i con 

Ot£S E66C 
0065 63 



0866 FA 

0867 03 ro 

0069 E66C 
0866 83 



086C 27 
0860 AO 



LIME 



SOURCE STAlDCMT 



■2353 ; 

•2354 NOV A* 8X1 

•2355 DEC A 

•2356 DEC A 

•2357 XXL A,X2 

•2350 4UZ CXKS& 
•2359 ; 

-2360 ; TOTAL-2*4AJORITY (2 MISMATCHES) 
•2361 ; 

-2362 NOV A,t2 

-2365 ADO A.f-15 

•2364 JXC CKMS80 

•2365 tET 
•2366 ; 

•2367 ; T0TAL-1-MAJ0R1TT ft MISMATCH} 
•2366 s 

•2369 CXKS30; MOV A,R2 

•2370 ADO A,#-3 

•2371 JMC CKKS80 ;JUMP IF <$ 

•2372 tET 
•2573 ; 

•2374 ; FAILED TEST. CLEAR COUNTERS. 
•2375 ; 

•2376 CKMS80: CLt A 

•2377 MOV aftQ, A ; CLEAR S2/S1 COUMTEKS 



•JUMP IF >2 MISMATCHES 

CHECK FOX MAJOXI TT>*15 • 



jJUHP IF <tS 



CHECK FOX MAJ0XITY>«3. 



086E A1 


■2378 


MOV 


8X1 ,A 


; CLEAR TOTAL COUNTER 


0B6F 63 


•2379 O 


CKS90: tET 


















•2381 ; 


ROUTINE: 


EXS8F2. EXS8F3, 


EXS8F4 




•2362 ; 


FUNCTIONS 


EXCHANGE SEGMENT BUFFERS AND COUNTERS. (2,3 OR 4 BYTES) 




•2383 ; 




(I.E. EXCHANGE BUFFER 1 DATA WITH BUFFER 2 DATA) 




•2384 ; 


ERTRT: tO • SCAN 1 BUFFER AOOXESS 




•2385 ; 


RO*2D,41 ■ SCAN 2 DUFFER AOORESS 




•2386 ; 


XtK3t4 # 5j ■ SCAH2/SCAN1 PACKED COUNTER AOOXESS 




•2387 ; 


EXIT: USES t1 # K2 






•2368 ; 


SCAN 1 AND SCAN 2 DATA AND COUNTEXS EXCHANGED. 




•2389 ; 


xo 


• SCAX2/SCAM1 COUNTER AOOXESS. 




•2390 ; 


A « SCAN2/SCAN1 COUNTEXS 




•2391 ; 

•2392 EXS8F2: MOV 






0870 BA02 


X2.62 




0872 647A 


•2393 




EXS8FX 




0874 BA03 


•2394 EXSSF3: MOV 


R2 # «3 




0876 647A 


•2395 


JNP 


EXSBFX 




0878 8A04 


•2396 EXSSF4: MOV 


X2,64 




087A F8 


•2397 EXS6FX: MOV 


A # XO 
X1,A 


jCET SCAN 1 BUFFER AOORESS 


0878 A9 


•2398 


MOV 


;SAVE IT 


0B7C 6A 


•2399 


ADO 


A,R2 


; CALCULATE SCAN 2 BUFFER AOOXESS - 


0870 AS 


•2400 
•2401 z 


MOV 


tO,A 


;SAVE IT 


007E FO 


•2402 EXS8FL: MOV 


A,8R0 


% ;CET SCAN 2 DATA 


087F 21 


•2403 


XCX 


A # 8X1 


; EXCHANGE DATA 


0880 AO 


•2404 


MOV 


SRO.A 


; STORE SCAN 1 DATA 


0881 18 


•2405 


INC 


to 




4882 19 


•2406 


INC 


61 




0883 EA7E 


•2407 
•2408 ; 


DJN2 


t2 # EXSXFL 




0885 FO 


•2409 


MOV 


A,SRO 


JCET S2/S1 CCUHTEtS 
; EXCHANGE COUNTERS 


0886 47 


•2410 


SUA? 


A 


0887 AO 


■2411 


MOV 


3R0.A 


•SAVE CCUNTERS 


0886 83 


•2412 


tET 


















■2414 ; 


ROUTINE: 


SUM12C 






•2615 : 


FUNCTION: 


CALCULATE L6S1 ♦ 66S1 MOD- 10 CHECKSUM. 




■2416 ; 


ENTRY: L6S1 AND X6S1 HAVE 


DATA TO USE. 




■2417 ; 


EXITS A • 


MOO- 10 CNECKSUH 


CALCULATION FOX 12 CHARACTERS. 




•2418 ; 


USE 


S R0,R2,R3 






•2419 ; 

•2420 SUM12C: MOV 






0889 8824 


tO,*L6S1 




0888 1461 


•2421 


CALL 


M00106 




088D AS 


■2422 


MOV 


B3 # A 


;SAVE LEFT HALF SUM 




■2423 ; 








088E 882E 


•2424 


MOV 


60,8X6S1 




0890 1461 


•2425 


CALL 


MODI 06 




0692 61 


•2426 


ADO 


*,e 


•RIGHT SUM ♦ LEFT SUN 


0893 57 


•2427 


OA 


A 




0894 5305 


-2428 


ANL 


A,*OFH 


•MASK SUM DIGIT 
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ISIS-U MCS-48/UPI-41 MACRO ASSEMBLER, V4.2 
OU09S ASSEMBLED 2/22/88 BY SUUQE ISAACS 



PACE 33 



tOC OBJ 



LIME 



SOURCE STATEMENT 



EXIT: 



©897 BC2D 
OB99 FO 
0R9A 69 
0B9B F69F 

0B9E 83 

0B9F BA35 

obai ro 

0BA2 £9 
OBA3 £690 
0BA5 27 
OBA* 37 
08A7 A3 



■2430 • 
•2431 ; 
•2432 ; 
•2433 ; 
■2434 ; 
■2435 ; 
■2436 ; 
■2437 • 
■2436 OC6TOT: MOV 
•2439 MOV 
■2440 ADO 
-2441 JC 
■2442 CX6T10: CL8 
•2443 «ET 
■2444 • 

■2445 CX6T20: MOV 
-2446 MOV 
■2447 ADO 
■2448 JHC 
•2449 CLB 
-2450 CPL 
•2451 BET 



BOUTINS: CK6T0T 

fuwcTiai: exEtr lastot and b6stot fob cams. 

A«0 IF EITKEft C0UNTEB < MINIMUM BEOUIBEO. 

" W " COUNTERS >« MINIMUM BEOUIBED. 
USE* BO 



80,fL6STOT 

A,SRO 

A.81 

CE6T20 

A 



B0.#R6STOT 

A,3R0 

A,B1 

CC6T10 

A 

A 



;CET LEFT SEGMENT TOTAL 
;JL#T IF L6ST0T >« -R1 
;EITNEt L6 OB B6 MAD < MINIMUM 

;CET RIGHT SEGMENT TOTAL 
B6ST0T < -R1 



-2452 



.-BOTH L6 AND B6 HAD >« MINIMUM 



©SAB B82C 
OBAA 7437 
OtAC F682 
OBAE 8824 
OttO 7470 
0BS2 7*48 

OtSA H834 
0tS6 7437 
0S88 F6BE 
OttA B82E 
OttC 7474 
OttE 7440 

OtCO BtOfi 
OtC2 BA3A 

0BC4 7437 
OtC6 F6CE 
OtCB F8 
0tC9 03FC 



7470 

OtCE 7448 
OtDO F8 
0B01 0306 
0H03-A8 
CB04 CBC4 
83 



■2453 ; BOUT I HE: MAJSCS " **** 

-2454 • FUNCTION: DETERMINE MAJOBITT SEGMENTS. 

' *** l(AJC * ,TY «CMENT TO tOf FEB #1 if NEOESSABT 

3? entbt: ^^"^^cuabcountebs. 

' 6X118 ,F T|C MSMATCM RATIO IS t*. 

2^62 - SSS I *"° C °* TCt 1 «** «*JOB«TT. 

f~ • SEGMENT BUFFER 2 AND COUNTER 2 MAS MINORITY 

: " COUNTlBS^'cLlila. 



0BD7 A3 
0B08 83 



•2465 MAJSCS: NOV 
•2466 CALL 
-2467 JC 
■2468 NOV 
-2469 CALL 
•2470 MAJSCO: CALL 
•2471 ; 
-2472 

•2473 CALL 
•2474 JC 
-2475 NOV 
-2476 CALL 
•2477 NAJSC1: CALL 
•2478 ; 

•2479 MOV 
•2480 MOV 
•2481 ; 

•2482 HAJSG4: CALL 
■2483 JC 
•2484 MOV 
«248S ADD 
•2486 MOV 
•2487 CALL 
•2488 ; 

•2489 MAJSCS: CALL 
•2490 NOV 
•2491 ADO 
•2492 MOV 
•2493 DJftt 
•2494 BET 
-2495 



B0,ffL6$CKT 

CXMAJ 

MAJSCO 

80,fL6S1 

CXS8F4 

CKMISM 



NOV B0,**6SCHT 



;JUHP IF SI IS MAJORITY 
-EXCNANCE S2/S1 DATA AND COUNTERS 



MAJSG1 
B0.BB6S1 
EXSSF3 
CKMISM 

N3,*8 
B0,#L4SCMT 

CKMAJ 

MAJSCS 

A,RO 

A,#-4 

AQ,A 

EXS8F2 

CKMISM 



B^NAJSCA 



•NUMBEB OF A-CHAR SEGMENT BUFFERS 
JFIBST S2/S1 COUNTER ADDRESS 

JJUMF IF SI IS THE MAJOBITT 
; CALCULATE THE Si DATA DUFFER ADDRESS 
jEXCNANCE S2/S1 DATA AND COUNTS 
♦"CHECK MISMATCHES 

•CALCULATE NEXT S2/S1 COUNTER ADOBESS 



■2496 TB0PG8: MOW 
•2497 tET 
•2*98 ORG 
•2499 



A # 3A 



•2500- ROUTINE: VEBTAC 

«*501 ; FUNCTION: PERFORM MISMATCH TEST AND GET MAJORITY SEGMENT 
•2502 ; INTO BUFFER AND COUNTER #1. ^MAJSCS) 

^ \ ENTRY: NO SuJ° ^ MO m "**> 

•2505 ; EXIT: A-0 IF ENOUCN BLOCKS FOR A VERSION ABE FOUND. 



AND COUNT 
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ISIS-I1 MCS-48/UPI-41 MACRO ASSEMBLER, V4.2 
OU095* USSOCLEO 2/22/88 IT I LAKE ISAACS 



FACE 



TO 



75 



20 



25 



30 



35 



40 



45 



60 
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LOC OSJ 


LINE 


sourcf. 


! STATEMENT 






•2507 ; 


R6 SET TO INDICATE VALID VERSION IF ONE UAS FOUND. 




•2508 ; 


tl 


SETUP VtTN MINUS TRE MINIMUM NUMBER Of SCARS REQUIRED. 




•2509 ; 








(VtfM TZ.A ft 
IMN f*#w 


•2510 VERT AC: CALL 


MA JSCS 


s hj jMitvMf mifm rrryrifT Tgd 
JPWJGwJTT/HIWlftlCft *tWU I IUI 


0CDZ WW 


•2511 


CALL 


NCOMM 


;CKtCK COMM. HAJSCS TABES A WILE. 


OC04 FE 


•2512 


NOV 


A,R6 




0C05 53F0 


•2513 


AJfL 


A # RO FOR 


;CL£AA THE VERSION FOIRTER/FLAC. 


0C07 AC 


-2514 


NOV 


R6,A 




-2515 ; 








OCOa S9FE 


•2516 


NOV 


R1,B-2 


; REQUIRE 2 SCARS MIRIMUH 


0C0A 887D 


•2517 


NOV 


R0,RCONFIC 




ococ ro 


•2515 


NOV 


A,SRO 


;GET TRE CONFIGURATION RTTE 


OCOO 3211 


■2519 


J81 


TRTRLJC 


; JUMP IF 6 CHAR 2 SCAN BIT IS SET 


OCOF B9FF 


•2520 


NOV 


R1,N-1 


^REQUIRE 1 SCAR MINIMUM 




-2521 ; 








0C11 WAS 


•2522 TRYtLK: CALL 


TRLKA 




• OCt 3 C661 


•2523 


42 


VERA 


; JUMP IF A GOOD UPC-A BLOCK 




•2524 ; 








0C1S 9480 


-2525 


CALL 


TRLCT3 




OC17 C660 


•2S26 


J2 


VER13 


;JUMP IF A GOOD EAN-13 BLOCK 




•2527 ; 








OCt 9 949F 


•2528 


CALL 


TRLC2 




OCIt C63S 


•2529 


J2 


VERT10 


;JUMP IF A GOOD 8LK-2 




•2530 ; 








©CIO 89F C 


•2531 


NOV 


Rl # #-2 


;ALUATS REQUIRE 2 SCAMS MINIMUM FOR E 


0C1F 94AF 


•2532 


CALL 


TRLKE 




0C21 C65F 


•2533 


JZ 


VERE 


;JUKP IF A GOOD UPC-E BLOCK 




-2534 ; 








0C23 R9FE 


•2S35 


NOV 


Rt,f-2 




OC25 S87D 


•2536 


NOV 


RO.RCONFIC 




0C27 FO 


•2S37 


NOV 


A, 9*0 


;CET TRE COMF1 CURAT tOH RTTE 


0C28 122C 


•2530 


JBO 


VERTQ5 


;JUNP IF 4 CNAR 2 SCAN BIT IS SET 


0C2A 89FF 


•2539 


NOV 


R1,f-1 






•2540 ; 








0C2C S42F 


•2541 VEHT05: CALL 


TRLR1 




0C2E C658 


•2542 


JZ 


VERDI 


;JUKP IF A GOOD SlK-1. CD-I) 




•2543 ; 








OC30 94C2 


•2544 


CALL 


TRLK8 




0C32 C6S£ 


-2545 


JZ 


VERS 


;JUMP IF A GOOD EAR -8 BLOCK 


0C34 85 


•2546 


RET 




m t~ ~w m ^ ■ i mm — * *um mP+*M m*» jirtrr 

RETURN IF ROT EROUCR BLOCKS 




•2547 ; 








©C3S B9FE 


•2548 VERTtO: NOV 


Bl # *-2 




0C37 8S7D 


•2549 


NOV 


R0,tCOMFIC 




0C39 FO 


•2550 


NOV 


A«8R0 


;CET TRE CONFIGURATION BYTE 


0C3A 1Z3E 


-2551 


JRO 


VERT1S 


•JUMP IF 4 CNAR 2 SCAN BIT IS SET 


0C5C 89FF 


•2552 


NOV 


R1,f-1 






•2553 ; 








0C3E B49E 


•2554 VERT 15: CALL 


T8LK5 




OCt© C648 


•2555 


JZ 


VERT20 


;JUMP IF A GOOD 8LK-5 




•2556 ; 








OC42 8406 


-2557 


CALL 


T8LK6 




OOU C656 


•2556 


JZ 




• jup t f m conn MttTmA fD*3t 




•2559 ; 








0C46 1166 


•2560 


CALL 


TRU3 




0C48 C6S7 


•2561 


JZ 


VER02 


;JUNP IF A GOOD BLK-3. CD-2) 


0C4A 83 


•2562 


RET 




•RETURN II NOT ENOUCM BLOCKS 




•2563 ; 








0C4I B4RA 


•2564 VERT20: 


CALL 


TSLK7 




OC4D C654 


•2565 


JZ 


VERDS 


;JUKP IF A GOOD SLK-7. <D-S> 




•2566 ; 








0C4F 8482 


•2567 


CALL 


TRUC4 




0CS1 C65S 


-2560 


JZ 


VERD4 


;JUMP IF A GOOD 8LK-4. CD -4) 


0CS3 83 


•2569 


tET 




; RETURN IF MOT ENOUCM BLOCKS 




•2570 ; 








CCS4 IE 


•2571 VEROS: 


IRC 


R6 


;SET R6-9 


OCSS IE 


-2S72 VEK04: 


IRC 


R6 


;SET R6-S 


0CS6 IE 


•2573 VER03: 


IRC 


R6 


;SET R6-7 


0C57 IE 


•2574 VER02; 


IRC 


R6 


;SET R6-6 


OCSS u 


•2575 VERDI: 


IRC 


R6 


;SET 16-5 




■2576 ; 










•2577 ; 








0CS9 2301 


•2578 


NOV 


A,01 


;NO VERSION 0 ALLOUED 




•2579 ; 






OCSI BEOO 


•2580 VERTSO: 


NOV 


R6 r R0 


; CLEAR TNE VERSION FLAG 


OCSO S3 


•2581 


RET 




•RETURR 11/ AoO, NO VERSIONS 




-2582 ; 
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ISIS-II MCS-46/UPI-41 MACRO ASSEMBLER, V4.2 PAC£ 35 

CMA09S ASSEMBLED 2/22/68 IT SLAKE ISAACS 

IOC OBJ LIKE SOURCE STATEMENT 

0C5F IE «2S84 VERE: IRC R6 ;$ET 16-3 

0C60tt «2S8SVER13: IRC R6 JttTtS 

0C61 IE -2S86 VEIAs INC R6 JsET J£l 

-2S87 ; * ■ 

OC62 63 -2566 VEIT90: RET 

2539 * iMCUPECgritflUOOCSKC) 

«2S90 -* * ■ ' ~ * — — 



*SH 9 -f? lE; T6UXX.SRC 09-11*66 09:10 106 ACT IS 
•2592 ^ 



■2S» f tOUT IKE: TSLKA 

■zsw ; function: try rot a valio upc-a block. 

«K •* CHECK THAT L6 AND R6 HAVE ENOUGH DATA. 

; "ECC THAT US IS AN A-L. 

f I F « » CALCULATE MOD- 10 CHECK CHARACTER. 

52 * IF mVL ****** VITN A-0. 

I lF ««OR, CLEAR 4&6-CKAR SEGMENT COUNTERS AND 

32? : «,„, sou, , m^S^S^JSST^ 

3S£: cm: ,£«S"^~««~~«~««-» 

*2604 ; A«0 IF COCO BLOCK 

■2605 ; AoO IF NO BLOCK 
■2606 ; 

0C63 7497 -2607 T8LKA: CALL CK6T0T 

325; JZ ***** IF NO LEFT OR NO RIGHT SEGMENTS 

0C67 6627 -2610 " MOV R0,«L6$T*3 

SEf 9 ™ * 26U "* A,8R0 ;CET PAR ITT DECODE BYTE 

0C6A 530C -2612 ANL A.NOCH ^ * TTE 

0C6CO30C -2613 X*L A,*OCN 

0C6E 9670 -26U JNZ 
-2615 



A.60CH 

;JUKP IF MOT AND AL 

££££ ' 5£ L CALCULATE LEFT ♦ RIGHT CHECKSUM 

Sit £S TK " 6 ;JOMP If M00.10 IS BAD 

-2619 ; 

«26» ; THE rOLLOWlKC IS USED 6T OTHER TBLKXX ROUTINES. BUfMAH. I ROTAC 

"262 CLRVER EOU 6 ;E«TRT POINT TO CLEAR VERSION FLAGS 6 DATA 

0C75 1400 -2623 TBERR6: CALL CLR6SG -CLPAM a-cmam 

0C77 1406 m?A3L tmf#./ . XTTr Xr-7r* • a " tA * O-CKAN SEGMENTS AND COUNTERS 

©C79 FE -2625 1 • CLE « *<■« «CME«« AND COUNTERS 

™ ; CLEAR VERSION POIHIER/FLAG 

0C7D 27 -2628 TBNOHE: CLR A * 

0C7E 37 «2629 CPL A 

0C7F 63 -2630 RET 

-2632 ? ROUTINE: TBLK13 * * 

-2633 ; FUNCTION: TRY FOR A VALID EAN-13 BLOCK. 

f CHECK THAT L6 AND R6 HAVE ENOUGH DATA. 

«2fJS ; CHECK THAT L6 IS AN EAN-13-L. 

^37 t II 5.ff 2*- CALCULATE MOD- 10 CHECK CHARACTER. 

■Jg 7 • If «TILL OK. RETURN WITH A«0. 

*ff*5 ! IF »;W * AILS. CLEAR U6-CKAR SE CHERT COUNTER AND 

• m CLEAR VERSION POINTER/FLAG. 

"2640 • ENTRY: SCAN 1 BUFFER IS MAJOR ITT SCAN. 

32 f' EXIT: l£^™V mWS m l,, " ,lt,K 
-2643 ; A-0 IF GOOD BLOCK. 

«26W ; AoO IF HO BLOCK FOUND. 

-264S ; 

0C80 7497 -26(6 TBLK13: CALL CK6TOT 

0C62C6» .2647 JZ TBNONE ;JUHP IF MO LEFT OR NO RIGHT SEGMENTS 

SS7S50 !^ ?CET PARITY DECODE BYTE 

S SSJ IS A REDECE^EOECO ;MASK 0 ANO E SEG 6 ITS 

^| . MZ 1%mME IF 0 Oft E SEGMENT 

?C8B FO -26S4 MOV A.9R0 

SSSS ado f-r:: ;mask THE DECODED CHARACTER 

OOT F67D 2° A ^2? ;A>9 IS AN A OR 6 SEGMENT 

*26SB - TM0,(E JJUMP IS A OR 6 SEGMENT 

0C92 7469 -2659 ' CALL SUM12C 
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ISIS-II MCS-48/UPI-41 HACK) ASSEMBLE*, V4.2 FACE 56 

QU095 ASSEMBLED 2/22/88 BY BLAKE ISAACS 

tOC 08J LIKE tOM.CE STATEMENT 

•2661 ; 

0C95 8827 -2662 MOV R0,#L£S1*3 

0C97 FO -2663 NOV A, 8*0 ;6£T WITT DECODE OlAJtACTEt 

0C98 68 -2664 ADO A,t3 ;ADO 13TN CHARACTER 

0C99 57 -2665 OA A 

0C9A 530F «2666 AML A # fOF« 

0C9C 9675 -2667 JHZ tIEtt6 ;JUMP IF MOO* 10 fS BAD 



0C9E 83 -2666 8ET 

•2669 ; — — — — 

-2670 ; ROUTINE: TBUC2 

-2671 ; FUNCTION: TIT FOR A VALID VERSIOM-O SL0CK>2. 
-2672 ; CKECC THAT L6 AMD 86 HAVE ENOUGH DATA. 

-2673 ; CHECK THAT L6 I J A D-TAG. 

-2674 ; IF Ot SO FAR, CALCULATE HOD- 10 CKECX CHARACTER. 

•2675 ; IF STILL OK, RETURN WITH AH). 

•2676 ; IF HOO-10 ERROR, CLEAR 4S6-CKAR SEGMENT COUNTERS AND 

•2677 ; CLEAR VERSION PO INTER/FLAG • 

•2678 ; ENTRY: SCAN 1 SUFFER IS MAJORITY SCAN* 

•2679 ; tt SETUP HIT* MINUS THE MINIMUM NUMBER OF SCANS REQUIRED 

•2680 ; EXITS USER R0,R2,R3*A 
•2681 ; A-0 IF 0000 BLOCK 

•2662 ; AoO IF NO BLOCK 

•2683 ; 

0C9F 7497 •266* TSLK2: CALL CK6T0T 

0O1 C67D -268S JZ T8N0NE ;JUKP IF NO LEFT OR NO RIGHT SEGMENTS 

•2686 ; 

OCAJ N827 -2687 MOV R0 r fL6SU3 

OCAS FO -2688 MOV A,«0 ;CET PARITY DECODE BYTE 

0CA6 5320 -2689 ANL A, REDE CD 

OCAS C67D -2690 JZ TBNONE ;JUMP IF MOT A D-TAG. 

•2691 ; 

OCAA 7489 -2692 CALL SUK12C 

OCAC 9675 -2693 JHZ T8ERR6 ;JUMP IF MOO-10 TEST FAILED 

OCAE 83 -2694 RET 

•2695 ; 

k2696 - ROUTINE: TRICE 

-2697 ; FUNCTION: TRY FOR A VALID UPC-E SLOCX. 
-2698 ; CKECC THAT L6 HAS ENOUCN DATA 

•2699 ; CHECK THAT L6 IS AN E-TAC. 

•2700 ; CHECK THAT R6 HAS NO DATA. 

•2701 ; IF OK. RETURN UTTK A*0. 

•2702 ; ELSE. CLEAR 4*6*CKAX SEGMENT COUNTERS AND 

•2703 ; CLEAR THE VERSION POINTER/ FLAG. 

•270* ; ENTRY: SCAN 1 BUFFER IS THE MAJORITY SCAM. 

•2705 ; tl SETUP WITH MINUS THE MINIMUM NUMBER OF SCANS REQUIRED 

•2706 ; EXIT: USES RO.A 
-2707 ; A-0 IF GOOD BtOOC. 

•2708 ; AoO IF NO BLOCK. 

•2709 ; 



OCAF B820 


•2710 TRUCE: MOV 


K0 # tL6STOT 




OCtt FO 


•2711 


MOV 


A,9R0 
A,R1 




0C82 69 


•2712 


800 




0CB3 E67D 


•2713 


JVC 


TBNONE 


•JUMP IF < -R1 LEFT SEGMENTS 




•2714 • 








OCBS B827 


■2715 


NOV 


R0,ffL6S1*3 
. A,aso 




0CB7 FO 


-2716 


MOV 


;GET PARITY DECODE BYTE 


OCBS 5310 


-2717 


ANL 


A,8EDECE 
TBNONE 


OCSA C67D 


•2718 
-2719 ; 


JZ 


•JUMP IF NOT AN E-SEG. 


OCSC B835 


•2120 


MOV 


R0,NR6STOT 




OCBE FO 


-2721 


MOV 


A,8R0 




0C8F 9675 


-2722 
•2723 ; 


JNZ 


TBERR6 


•JUMP IF B6 SEGMENTS ARE PRESENT 


0CC1 83 


•2724 


BET 


















•2726 ; 


ROUTINE: 


TBLCB 






-2727 ; 


FUNCTION: 


TRY FOR A VALID EAN-8 BLOCK. 




-2728 ; 




IF ANY 6-CNAR SEGMENTS ARE PRESENT, CLEAR 4 -CHAR 
SEGMENT COUNTERS AND VERSION POINTER/FLAG. 




•2729 ; 






-2730 ; 




CHECK THAT L4 i 


1X0 R4 RAVE ENOUCN DATA. 




-2731 ; 




IF OK SO FAR, C 


CALCULATE THE MOO-10 CHECK CHARACTER. 




•2732 ; 




IF STILL OK, RETURN WITH A"0. 




■2733 ; 




IF MOD-10 ERROR, CLEAR 4-CHAR SEGMENT COUNTERS AND 


> 


-2734 - 




CLEAR VERSION POINTER/FLAG. 




■2735 ; 


ENTRY: SC 


AN 1 BUFFER IS THE MAJORITY SCAN. 




•2736 ; 


B1 


SETUP WITH MINUS THE MINIMUM NUMBER OF SCANS REQUIRED 
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;JUMP IF ANT 61 SEGMENTS 



If'SJ 1 WCS-Wl*»I-41 MACRO ASSEMLER, V4.2 PAGE 37 

CKA095 ASSEHiLED 2/22/88 ST f!*i*T ISAACS 

IOC OW LIKE SOURCE STATEMENT 

•2738 • A*} IF COOO BLOCK 

•273? ; AoO If MO ttOQC 
-2740 • 

25? K» -2741 TIU8: MOV R0,tL6STOT 

SSf ™ * 2W2 WV A,«0 

OCC5 9677 -2743 JK2 TSERR4 
•2744 • 

occ9 ro «2746 MOV A # ato 

^ • ^ Tt£W * ;*HP IF AMT6A SEGMENTS 

OCtt S8U -2749 ' MOV R0,*USTOT 

OCCE FO -2750 NOV A,0R0 

°CCF 69 «2751 ADO A.R1 

OCDO E67D -2752 JNC TSKONE -JUMP IF « HM UFT HALF SEGMENTS 

OCD2 8841 -2754 " MOV RO,RR4STOT 

0CD4 FO -2755 MOV A,9*0 

Om 69 .2756 ADO A,A1 

0CD6C67D -2737 *C T SMOKE ;JU» IF < -R1 RICKT KALF SEGMENTS 

0CD8 8836 -2759 * MOV R0.8L4S1 

OCDA 145C -2760 CALL M00104 ~ 

?55 " -£« «* R3,A ;SAVE LEFT SUN 

OCDO *«C -2762 MOV tO,*R4S1 

OCDF 145C -2763 CALL M00104 

SSS £S S° ^ *—i «♦»•«». 

0CE3 530F -2766 AJfL A.iOfN 

ttg 77 %Z g ,r «x>.10 is sad 

-2769 ; 

0CE8 A3 -277© TRC+CC: MOT A,0A 

OCE9 83 -2771 NET 

OOOO -2772 OtC OOOON 

«2773 ; ""M « M Ml t li MitMiM i UfM i M 

•2774 ; ROUTINE: TSUft 

-2775 : FUNCTION: TRY FOR A VALID VERSION* 8LOCX-6. 
52* • SFgLP" «C5> AND 8CR> RAVE EMOOCK OAT A. 

J If TNET 00. CALCULATE MOD- 10 CHECK CHARACTER. 



-2JJ»; IF OK. « 

■fJJX • *LSE. CLEAR 4-CNAR SEGMENT COUNTERS AMD 

"2780 ; CLEAR TNE VERSION FOIKTER/FIAC* 

•2781 f ENTRY: SCAN 1 IS TNE MAJORITY SCAN. 

■2782 ; C1 SETUP WITS MINUS TNE MINIMUM NUMBER OF SCANS REQUIRED 

•2783 ; EXIT: USES R0,R2 r A3,A 
•2784 ; A-0 IF COCO BLOCK 

-2785 ; AoO IF NO SLOCK 



0000 8477 


•2787 TSER4J: JNF 


TSERR4 


0002 8475 


-2788 TSER6J: JMP 




0004 8470 


-2789 T8M0NJ: JMP- 






-2790 ; 






0006 8853 


•2791 TSLK6: 


MOV 


R0 # 6K3STOT 


0008 FO 


-27V2 


NOV 


0009 69 


-2793 




A*R1 




-2794 
-2795 ; 


JVC 


OOOC 88SF 
ODOE FO 


•2796 


NOV 


ROfMSSTOT 


-2797 


NOV 


00OF 69 


-2798 




A,R1 
TSMONJ 


0010 E604 


-2799 






•2800 ; 






0012 8841 


•2801 


NOV 


R0,8R4ST0T 


0014 FO 


-2802 


MOV 


A.9R0 


0015 69 


-2803 


AOO 


A,R1 


0016 E604 


-2804 


JSC 


0010 884E 


•2805 ; 
•2806 


NOV 


tO,8*3Sl 


COU 145C 


■2807 


CALL 


NQ0104 


ODtC AS 


•2806 
•2809 - 


NOV 


R3,A 


0010 88SA 


•2810 


NOV 


R0,#«5S1 


COIf 145C 


•2811 


CALL 


NQ0104 


0021 68 


-2812 


AOO 


A,t3 


0022 57 


-2813 


DA 


A 



# JUMP IF < -R1 N3 
;JUNP IF < -R1 NS SEGMENTS 
;JUNP IF < *R1 88 SEGMENTS 
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IStS-I! MCS-48/UP1-41 MACBO ASSEMBLES, V4.2 PACE 38 

OU09S ASSEMBLED 2/22/89 ST I LAKE ISAACS 



IOC OBJ 


LIKE 


souac 


E STATEMENT 






-2815 ; 








0024 tasc 


-2816 


NOV 


B0,«X4S1 




0026 145C 


■2817 


CALL 


M00104 




0028 68 


•2818 


ADO 


A,83 




0029 57 


-2819 


OA 


A 




0D2A S50F 


-2820 


AXL 


A, BO FN 




C02C WOO 


-2821 


JKZ 


TBEB4J 




0D2E as 


•2822 


tET 








■2825 r 










•2824 ; 


tOJTIKE: 


TBLKT 






•2825 ; 


FUNCTION: 


TKT FOB A VALIO VEBSION-O BLOCX-1. 




-2826 ; 




CXtCK TBAT U. N(6) AND 6(L) NAVE ENOUCH OATA. 




•2827 ; 




CHECK TBAT L6 IS A O-TAC 




-2828 ; 




BEVEBSE 8L DATA 




•2829 ; 




CALCULATE MOD- 10 CXECK CXABACTEB. 




-2830 y 




IF OK, BETUBX WITH A«0. 




-2831 s 




ELSE, CLEAN 4L6-CKAX SECMENT COUNTEBS AND 




•2832 ; 




CLEAN THE VEXSION KHXTEX/FLAG. 




•2835 ; 


ENTKT: SCAN 1 IS THE KAJOBITT SCAN. 




-2834 ; 


tl SETUP WITH MINUS THE MINIMUM KUKSEt OF SCANS tEQUItEO 




-2835 ; 


EXIT: USf 


S K0,B2,B3,A 






•2856 ; 


A«C 


1 IF 0000 BLOCK 






-2837 ; 


AoO IF NO BLOCK 






•2858 ; 








0D2F B82D 


•2839 fSUCI: MOV 


S0,BL6STOT 




0051 FO 


■2840 


MOV 






0032 69 


•2841 


ADO 


TBNONJ 


•JUMP IF < -K L6 SEGMENTS 


00X3 C604 


■2842 


JXC 




—2843 ; 








0035 8827 


-2844 


MOV 


N0,fL6SH3 




0057 FO 


-2845 


MOV 


A,OKO 


;CET f AX ITT DECODE BTTE 


0058 5320 


-2846 


AXL 


A.fEDECO 




ODJA C604 


•2847 


JZ 


TBNONJ 


;JUMP IF MOT A D-TAC 




■2848 ; 








005C 8865 


•2849 


MOV 


B0,NV6STOT 




00 3£ FO 


•2850 


MOV 


A^OAO 




0D3F 69 


-28S1 


ADO 


A,«1 




0040 £604 


-2852 


JSC 


TBNONJ 


;JUMP IF < -Bl N6 SEGMENTS 




-2853 ; 








0042 8858 


•2854 


MOV 


B0,iL4STOT 




0044 ro 


-2855 


MOV 


A,9K0 




0045 69 


-2856 


ADO 


A,B1 




0046 £604 


•2857 


JVC 


TIMONJ 


;JUMP IF < -B1 8L SEGMENTS 


0048 8824 


-2858 ; 
•2859 


MOV 


S0,NL6S1 




004A 1461 


•2860 


CALL 


M0O1O6 




004C A8 


■2861 


MOV 


83,A 






•2862 ; 








0040 8860 


■2863 


MOV 


B0,SX6S1 




C04F 14SC 


•2864 


CALL 


MQ0104 


■» 


0051 68 


•2865 


ADO 


A.B3 




0052 57 


■2866 


OA 


A 




0055 AS 


■2867 


MOV 


t5,A 






-2868 ; 








0054 8836 


•2869 


MOV 


B0,«L4S1 


•BEVEBSE 8L OATA 


0056 ro 


■2870 


«0V 


A.8A0 


;CET CKAX U2 


€057 47 


■2871 


SUA* 


A 




0058 18 


■2872 


INC 


BO 


•GET CKAX 3S4, SAVE CKAX 2*1 


0059 20 


•2873 


XCN 


A,OXO 


OOSA 47 


•2874 


SUAP 


A 




0058 C8 


■2875 


OEC 


BO 


;SAVE CKAX 413 


005C AO 


•2876 


MOV 


aao^A 




•2877 ; 








0050 145C 


■2878 


CALL 


M0O1O4 




O05F 68 


•2879 


AOO 


A*t3 




0060 57 


■2880 


OA 


A 




0061 5307 


■2881 


AXL 


A,#on 




0065 9602 


■2882 


JN2 


TBEB6J 




006S 83 


■2883 


BET 








-2884 










■2885 ; 


BOUT I BE: T8U3 






■2886 ; 


FUNCTION: 


TXT FOt A VALIO VEXS10M-© BLOCK -3- 




•2887 ; 




CBECK THAT HC2) 


AND 6<8> NAVE EKOUCX DATA. 




•2888 ; 




IF TXET 00, CAU 


2JLATE MOO-10 CKECK CXABACTEB* 




•2889 ; 




IF OK, BETUBX UtTX A-0. 




•2890 ; 




ELSE, CLEAN 4-CXAt SEGMENT COUNTEBS AND 
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fJUNP IF < «*1 N2 SEGMENTS 
IF < Htl 8* SEGMENTS 



ISIS-It MACRO ASSEKUER, V4.2 PACE 37 

CKA095 ASSEMSLED 2/22/M IT muCE ISAACS 

IOC OtJ LIKE SOURCE STATEMENT 

? ****** «=AN 1 « THE MAJORITY SCAN. 

exit: ATOK ™* «— 

-2895 ; A«0 IF CSOOD StOCC 

«2W6 ; Aofl IF HO tLOCT 
■2897 • 

222J2 40 *H2 TiU3s "* «0,«StOT 

006ft F0 .2899 MOV A.8R0 

0069 69 .2900 ADO AM 
006A E604 «2901 JKC TCNOHJ 

•2902; 

006E FO -2904 NOV A # io 

0D6F89 .2^05 J'™ 

0070 £604 -2906 JUC T rW| 

-2907 ; 

0072 0848 -2908 MOV tO.iMttl 

0074 U5C -2909 CALL H0D104 

0076 AS «2910 MOV R3.A 

■2911 ; 

^"JC «»« MOV R0,«R4S1 

0079 U5C .2913 CALL MO0 104 

22 S 1,2914 ^ A,R3 

007C 57 «291S OA A 

0070 530F .2916 AMI A #OFM 

00* 9600 -2917 JkJ 

0081 85 -2918 RET 

•2920 ; ROUTINE: T1UT4 

•2921 ; FUNCTION: TAT FOR A VALID VERSION-© 840OC-4. 

J ffSLr^I * C5) **> «« «« ««**H ©ATA. 

f~ # IF T «^ T 00. CALCULATE MOD-10 CHECK CHARACTER 

■gg * If OK. tETWH WITH A«0. 

2!S f Ct5t ' ** aU » «HEW COUNTERS AHO 

• CLEAR THE VERSION FOI HTEA/FL AS • 

«|7 ; ENTRT: SCAN 1 1$ THE MAJOR ITT SCAN. 

SS I EXIT: A'SSm^ ^ " — 

-2950 ; A-0 1F GOOD iLOOC 

■2931 ; aoO IF HO 8L0CC 

■2932 ; 

0082 885F -2935 THLWs MOV R0.NN5STOT 

0084 FO «2934 MOV A.ORC 

0085 89 -2935 AOO A R1 

0086 £604 «2936 JHC T8N0NJ 



■295/ 

22? If 7 "252 tO.fNlSTOT 

C08A FO «2959 MOV A,SRO 

— 69 .2940 ADO A.*1 



;JUH> IF < -R1 N5 SEGMENTS 



^ ? TSNONJ ;AMP IF < *R1 HI SEGMENTS^ 

2£?5^ # «W R0.NN5S1 

0090 145C »2944 CALL MOD 104 

0092 AS -2945 MOV R5 # A 

■2946 ; 

25 Ef 2 * 29 * 7 * NOV * R0,«W1S1 

0095 145C 4948 CALL MOD 104 

0097 68 «29<9 AOO A t R3 

0098 57 -2950 OA A 

2222 •£52 a,hofh 

009S 9600 «2952 JNZ TSER4J 

009D 85 «2953 R£T 

■2954 r 



■2955 ; ROUTINE; T8U5 ~* 

-«S6 ; FUNCTION: TNT FOR A VALID VERSION H) tLOCX-5. 
5tJ 1 T|UT ««> AND 8<R> NAVE ENOUGH DATA. 

!|£2 ! H JO. CALCULATE MOD-10 CHECK CHARACTER. 

***** i If OK. RETURN WITH A-0. 

? *?• DJE * t «OOfT COUNTERS AND 

SS j car: cSs^uV"" 8 """^ 

-2965 ; A«0 IF COCO 8L0CT 

■2966 ; AoO IF NO BLOCK 



■2967 ; 
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ISIS-1I KCS-46/UPI-41 MACRO ASSEMBLER* V4.2 FACE 40 
OO09S ASSEMBLED 2/Z2/M RT RLAJCE ISAACS 

IOC 08J LIKE SOURCE STATEMENT 

OOAO fO -2969 MOV A,ORO 

0DA1 69 "£970 ADO A,R1 

0DA2 £604 -2971 JVC TMOW ;«f IF < -Rt N4 SEGMENTS 

■2972 ; 

COM 8841 -2973 NOV R0,#*4STOT 

OOAA ro -2974 NOV A,WO 

00A7 69 -2975 ADO A,R1 

00*8 E604 -2976 JUC THOU ;JUKP IF < Hit fit SEGMENTS 

-2977 ; 

OOAA 8854 -2978 NOV R0,t«4Sl 

OOAC USC -2979 CALL MO0 104 

COAE At -2980 NOV 13, A 
•2981 ; 

OOAF IMC -2982 NOV R0.R84S1 

0311 USC -2983 CALL N00104 

0013 68 -2984 ADO A,R3 

OOU 57 -2985 DA A 

0085 530F -2986 AKL A,#OfN 

0017 9600 -2987 JVZ T8E84J 

0319 83 -2988 tET 

•2989 ^ ■ MtMMMM i m tt l i M ii MMMttM ttt iM i titm ti Mt i 

-2990 ; ROUTINE: T8UC7 

-2991 ; FUNCTION: TKY FOR A VALID VERS I ON- 0 RLOCX-7. 

•2992 ; CKEOC THAT N<3), N<6> AND «Ct> NAVE ENOUGH DATA. 

-2993 : IF TNEY DO, CALCULATE MOO-10 CNEOC CHARACTER. 

■2994 : IF 0C # RETURN WITH A«0. 

•2995 s ELSE. CLEAR 4-CNAt SEGMENT COUNTERS AMD 

'2996 ; CLEAR THE VERSION POINTER/FLAG. 

-2997 ; ENTRY; SCAM 1 IS TNE MAJORITY SCAN. 

-2998 ; R1 SETUP WITH MINUS THE MINIMUM NUMBER Of SCANS REOUIRED 

-2999 ; EXIT: USES R0,R2,R3,A 

•3000 ; A«0 IF GOOD RLOOC 

-3001 ; AoO IF NO RLOOC 
•3002 ; 

ODRA R8S3 -3003 TSUC7: MOV R0 # fM3STOT 

OORC FO -3004 MOV A.9R0 

0D8O 69 -3005 ADO A,R1 

OOffE E604 -3006 JUC T8N0NJ ;JUKP IF < -R1 N3 SECKCNTS 

-3007 ; 

OOCO R86S -3008 MOV 80,fK6STOT 

0DC2 FO -3009 MOV A,ORO 

00C3 69 -3010 ADD A,R1 

0DC4 E604 -3011 JNC TSNONJ ;JUM> IF < -R1 N6 SEGMENTS 

•3012 ; 

00C6 8847 -3013 MOV R0,fN1STOT 

oo ca FO -30U MOV A.OR0 

00C9 69 -30IS ADD A.R1 

OOCA E604 -3016 . JNC TRNONJ * -JUMP IF < Htl HI SEGMENTS 
•3017 ; 

ODCC -884E -3018 MOV 80 # «*3S1 



ODCE USC -3019 CALL MOD 104 

0000 At «3020 MOV R3„A 

•3021 • 

0001 8860 -3022 * NOV RQ,RK6S1 



0003 USC -3023 

0005 68 -3024 ADO A,R3 

0006 57 -3025 DA A 

0007 At -3026 MOV R3,A 

•3027 : 

0008 88(2 -3028 NOV RO,fKlSl 
OOOA USC -3029 CALL MO0 104 
ODOC 68 -3030 ADD A.R3 
0000 57 -3031 DA A 
ODCE 5 JOT -3032 AKL A.ftDFN 
OOEO 9600 -3033 JNZ TBER4J 
00€2 83 «3034 RET 

3035 ; ' 

0DE3 A3 3036 TtOPCD: MOW A,dA 

00E4 83 3037 RET 

OEOO 3038 ORG OEOON 

3039 S IKCLUDEC:F1:SLRDTC.SRC> 

•3040 — — — — 

•3041 ; FILE: SLROTC.SRC 10-08 86 15:55 DOS ACT IS 

•3042 ; ROUTINE: ROTAC FOR TNE 7S0SL **TKIS IS TNE MAIN I 
•3043 ; 

OEOO FC -3044 ROTAC: NOV A # R4 ;CLEA* TNE SCAN FLAGS EXCEPT FOR 
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ISIS-II MCS-48/UPI-41 MACRO ASSEMBLER* V4.2 
CHA095 ASSEMBLED 2/22/88 IT «LA*X ISAACS 



PACE 41 



LOC OBJ 

0603 AC 
0E04 1208 

OE06 9475 

oeoo i4oc 



©EOA D484 
OEOC 3400 
OEOE 0619 

0610 FF 
061 t 96GA 

0613 SOU 

061S RF2A 
0617 C4U 



0619 14A4 
0611 3400 
0610 C40A 



061F fC 
0620 4301 

0622 AC 

0623 3400 

0625 14A4 
0627 0823 

0629 ro 

062A 9637 
062C0484 

0626 FF 
062F 9623 
0631 990F 
0633 0940 
063S C423 



0637 3400 

0639 990 F 
0630 0940 
0630 FC 
0636 0200 

0640 C448 



0642 0484 
0644 3400 
0646 14A4 
0640 5404 
064A ES 
0640 0400 
0640 FS 
0646 C&S3 

0650 FF 

0651 9642 



0653 3400 
0655 9400 
0657 C660 

0659 FF 



LIME 



SOURCE STATEMENT 



KCV 
JI5 

CALL 
CALL 



R4,A 
ROT05 

CLftVEt 



•3046 
-3047 
•3040 ; 
•3049 

•3050 KOTOS: 
-3051 ; 

rSsf - Um T ° 60 AUAY * MOTOR SPEED 

•3054 tOTIO: 



;8UFNAN REQUEST 
;JUHP IF TKE SUFMAN REQUEST FLAG 1$ SET 

; CLEAR THE VERSION POINTER/FLAG L DATA 
; CLEAR TKE SCAN OUFFER 



CALL 


MTRCttC 


CALL 




JNI 


ROT20 


MOV 


A,R7 


JKZ 


ROT10 


NOV 


R5,tEDRDLY 


MOV 


R7,*ECDLTW 


JMf> 


R0T30 



•3055 
•3056 
•3057 ; 
-3050 
-3059 
•3060 ; 
•3061 
•3062 ; 
•3063 R0T15: 
•3064 
•3065 ; 
•3066 ; 
•3067 ; 
•3060 R0T2O: 
•3069 
•3070 
•3071 ; 

•3072 ; UAIT FOR A LAIEL TO READ 



;CK£Ct: MOTOR SPEED 
; SERVICE TKE I/F AND KIFMAN 
;JUHP IF STMCAP (SEGMENT OR SO AT A) 

;C£T TKE "SEC SEEN* 1 TIMER 
;JUKP IF A SE6 RECENTLY SEEN 

;SET TKE OOUKLE READ TIMER 

;SET TKE CO-IT ON TIMER 

;C0 WAIT FOR A LAKEL TO R6AD 



RESET TKE STMCAP OR SERVICE SOATA 

OCFCA 
KCOMK 
ROT10 



CALL 
CALL 



;R£S6T TKE SEC, ALSO CHECK FOR SOATA 
♦ SERVICE TKE I/F AND SUFMAN. ALSO 
;D£LAT FOR FCA TO RESET 



MOV 


A r R4 


ORL 


A.RESCNC 


MOV 


R4 r A 


CALL 


KCOMM 


CALL 


OCFCA 


MOV 


R0,*SCNBUF<»3 


MOV 


A.ORO 


JNZ 


RDT40 


CALL 


MTRCMC 


MOV 


A.R7 


JN2 


RDT35 


ANL 


P1 r *255~ECDLT 


ORL 


PI, REVOLT 


JMP 


R0T3S 



•3073 . 

•3074 ROT30: 

•3075 

•3076 

•3077 z 

•3078 R0T3S: 

•3079 

•3080 

•3081 

•3082 

•3083 z 

•3084 

•3085 ; 

•3086 

•3087 

•3088 

-3089 
•3090 
•3091 ; 
•3092 ; 
•3095 ; 
•3094 ROT40s 
•3095 
•3096 
•3097 
•3098 
•3099 
•3100 
•3101 
-3102 . 

•3103 R0T50: CALL 
-3104 CALL 
•3105 CALL 
•3106 RQT60: CALL 
•3107 SEL 
•5108 CALL 
•3109 SEL 
•3110 42 
•3111 ; 

•3112 MOV 
•3113 JNZ 
•3114 ; 

"3115 ; TRT FOR A VALID LAKEL 
•3116 ; 

•3117 R0T70: CALL KCOMK 
•311B CALL VERTAC 

■3119 jz OOOORO 

•3120 ; 

«3U1 MOV AJI7 



i- CKEOC CD-LT ON TIME AND MOTOR SPEEO. 

?SET TKE SCAN FLAG SO OCFCA WILL 
?PUT TKE SEGMENT INTO TKE SCAN SUFFER 

.•SERVICE FCA. POSSULE SEC OR SOATA. 

;CET TKE SCAN KUF PARITY OECOTE KTTE 
;JUKP IF SCAN SUFFER KAS DATA 



,JW IF CD-LT TIMER o O 
; CD-LT OFF 
;SO-LT ON 

;STILL WAITING FOR A LABEL 



START READING THE LAKEL 
CALL 



ORL 
MOV 
JfS 



P1.K2S5-ECOLT 
Pl.fESOLT 
A,R4 
ROTAC 
ROT60 



COLLECT AND PROCESS SEGMENTS. 



OCFCA 



MSI 

R0T70 

A,R7 
R0T50 



; GREEN LIGHT OFF 
;RED LIGHT ON 

•JUMP IF TKE KUFMAN REQUEST FLAG IS SET 
JCO PROCESS THE FIRST SEGMENT 

CKEOC MOTOR 

zcmtx motor speed 

;CET SEGMENTS IF ANT 

; PROCESS SEGMENTS IF ANT 

;ONC FOR ENOUGH SE6S FOR PSKL VERSION 

•JUMP IF ENOUGH SEGMENTS 

;JUNP IF SEGMENTS RECENTLY SEEN 



; JUMP IF A GOOD VERSION WAS FOUND 
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ISIS-II KCS-48/UPI-41 MACROASSEMBLER, V4.2 PACE 42 

CKA095 ASSEMBLED 2/22/88 IT BLAXE ISAACS 



70 



75 



20 



25 





1 IMP MBM 


' CTATTMPITT 






•TIT* • 








■*■£% IMWD; MLl 


IWWl 








niMt 










UcdU WW 


•JlZ/ GOOD XO I CALL 


raw 




0E62 fd 


_T|H uai 

■3*ZB H/» 


A # R5 


;get Tiic mum wemd iiicr 


0663 C660 


•3129 42 


0000 10 


fJUMP IF OA Tllfcl^v CO* Iv WUIU KcAvj 




•3130 ; 






0665 E5 


■3131 SEX 


M80 




0666 f 406 


■3132 CALL 


DRSUKT 


; CALCULATE AM) TEST T8E DOUBLE READ SUM 


0660 f 5 


■3133 SEL 


M81 




0669 9671 


•3154 JKZ 


000020 


; JUHT If 0L0<H(EV CKO 00U8LE READ) 


0668 C4O0 


■3135 JMP 


1ST AC 


; JUMP IF DOUBLE READ TOO SOON 




■3136 ; 






0660 ES 


■3137 000010: SEL 


MflO 




0E6E F408 


•3138 CALL 


OtSUMT 


; CALCULATE AND SAVE THE LABEL SUM 


0670 rs 


•3139 SEL 


MB1 




0671 996F 


•3140 C00020: AMI 


P1,#255-E»0LT 


♦BO-LT OFF 


0673 0920 


■3141 ORL 


Pl.fECDLT 


;CD»LT OH 


067S 05 


•3142 SEL 


861 


0676 F8 


■3143 MOV 


A,R3 


•TONE ENABLE FLAG* 


0677 9678 


■3144 JHZ 


C0Q030 


;JUMP IF TONE DISABLED 


0679 BEW 


•3145 MW 


R6,fECDT0H 
880 


•GOOD TONE LER0TN 


0671 CS 


•3146 000030: SEL 






•3147 ; 






0E7c rc 


■3148 80T90: NOV 


A,t4 




0670 4320 


•3149 ORL 


A # 8EBFRE0 


;SET THE SUFMAH REQUEST FLAG 


067F AC 


•3150 MOV 


84 .A 
SUFKAH 


0680 F409 


■3151 CALL 




0662 C400 


•3152 JHP 


8DTAC 






•3153 ; 








•3154 ; CK6CC MOTOR 


UP2SP0* SIOUL 


CUP TO SPEED 8 OVER SPEED! 


0684 OA 


•3155 MTRCKK: IH 


A,P2 




0685 37 


•3156 CPL 


A 




0666 8289 


■3157 JR5 


MTtCIO 


;JUKP IF MOTOR SPEED PROBLEM 


0668 83 


•3156 RET 




RETURN IF CC 




■3159 ; 






0E89 8F64 


•3160 MTtCIO: MOV 


87,8100 


;SET TIMER FOR 2 SECONDS 


0688 FF 


•3161 NTRC20: MOV 


A # R7 


068C 9688 


-3162 JXZ 


MIRC20 


;UAIT IN CASE OF SPURIOUS ERROR 




•3163 ; 




0686 OA 


•3164 18 


A.P2 




068F 37 


■3165 CPL 


A 




0690 8293 


•3166 JtS 


MT8E88 


;JUKP IF STILL A PROBLEM AFTER WAIT 


0692 83 


-3167 SET 




-REUTRH IF CC 



30 



35 

•3168 ; 

•3169 ; COME HERE IF THERE IS A MOI0R PROBLEM OUR I KG RDTAC 

0693 6910 «3170 MTRERR: 0RL P1,8ELAS8B ;LASER OFF 

0E95 9900 -3171 ANL Pl,f255-CEMTREB«£CDLT> ?HOT0R OFF, CREEK LIGHT OFF 

OE97 8804 -3172 MOV 80.84 

0699 E5 -3173 SEL MB0 

0E9A 747F «3174 CALL TERRUT ;6IV£ 4 BEEPS FOR A MOTOR ERROR 

40 069C F5 «3175 SEL MBl 

•3176 ; 

•3177 ; STICC HERE WITH THE RED LIGHT FLASH I KG 

0E9D BF0S -317TB MTRE20: MOV R7,H5 ;SET TIMER FOR 100MS 

0E9F FF -3179 MTRE30: MOV A.R7 

0EA0 969F «3180 M MTRE30 ;UAIT BETWEEN LIGHT TOGGLES 

•3181 ; 

0EA2 09 -31B2 IH A # P1 

45 0EA3 99BF «3183 ANL PI # B25$-EB0LT ;RED LIGHT OFF 

0EA5 0290 «3184 486 MTRE20 ;JUMP IF TKE RED LIGHT WAS OH 

0EA7 8940 -3185 ORL Pl.fEBDLT yRED LIGHT ON 

0EA9 C490 -3186 JMP MTRE20 
3187 

DEAR A3 3188 TROPCE: MOVP A,3A 

0EAC 83 3189 RET 

OFOO 3190 ORG—" 0F00H 

50 3191 S IKajUD6(:F1:BUTMAR.SRC) 

•3192 



55 



•3193 ; FIU: BUFMAH. SRC 10-08-86 16:15 BOB ACTIS 

•3194 *»* * * 

•3195 ; ROUTINE: BUF12C 

■3196 ; FUNCTION: LOAD 12 CHARACTERS INTO TKE COMMUNICATIONS BUFFER. 

-3197 ; {LOAD L6 AND R6 DATA) 

•3198 ; ENTRY: R1 - NEXT AVAILABLE COM4 BUFFER BTTE. 
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ISIS-II MCS-48/UPI.41 MACRO ASSEMBLER, V4.2 
CKA09S ASSEMBLES 2/22/86 BY SLAKE ISAACS 



►ACS 43 



IOC OBJ 



Of 00 1824 
OF02 142A 
OHK BS2E 
OF06 U2A 

of os as 



Of 09 FC 
Of OA 1200 
OFOC 83 
Of 00 72A3 

Of Of 1967 
Ofll ft 
Of 12 S30f 
OFU 0300 
OfW 57 
Of17 92A8 

Of 19 031C 
Of If 83 
OflC A8 
Of to 26 
Of IE 2A 
Oflf 33 
0f20 43 
CF21 47 
0F22 55 
Of23 58 
Of 24 65 
Of 25 79 

0F26 

Of 26 F400 
0F28 E46F 

0F2A 23C0 
0F2C 8827 
0F2£ 30 
Of2f At 
0F30 f9 
0f31 E426 

0F33 81C0 
0F35 19 
0F36 8824 
0F38 142A 
OfSA Z3C0 
0F3C 8827 
0F3C 30 
Of3f A1 
0F40 t9 
0F41 E48f 

0F43 

0f43 8836 
CttS E471 

Of 47 8824 
Of 49 142A 



LIME 



SOURCE STATEMENT 



*3200 ; 
■3201 ; 
•3202 BUf12C: MOV 

•3203 CALL 

•3204 NOV 

•3205 CALL 

"3206 8ET 



U AMD 86 OATA MOVED TO CONK SUFFER. 



*0,#L6St 
M0Y38Y 
B0,*R6S1 
M0V38Y 



•5207 



EXIT: 



•3208 i 
•3209 ; 
•3210 s 
•3211 ; 
•3212 ; 
•3213 ; 
•3214 ; 
-3215 ; 
•3216 ; 
-3217 ; 
•3218 ; 
-3219 ; 
■3220 ; 
•3221 ; 
•3222 ; 

•3223 BUFMANr MOV 
-3224 J8S 
-3225 t£T 
•3226 8UFM10: J13 
•3227 ; 

•3228 BUFK20: MOV 
•3229 MOV 
•3230 AML 
•3231 ADO 
•3232 OA 
•3233 j« 
•3234 : 
•3235 
•3236 

•3237 BUfTSL: 08 



ROUTINE: SUFKAJf 

fUNCTION: IF SUFNAK tEQUEST fLAC IS MOT SET. 
THEN RETURN, 

ELSE IF CONS 8UF IS OUST 

THEM If MO VALID VERSIONS, CLR REQ FLAG. 

ELSE PROCESS MESSAGE SUFFEJt REQUEST. 

EMTRY: 880 

86 VERSION FLAGS SETUP 
USES 80,8m 



RETURN 



SPECIAL CHARACTERS: 

OATA «C" 



08 



08 
08 



•3238 
•3239 
•3240 
•3241 
•3242 
•3243 

•3244 08 

•3245 OR 

-3246 08 
•3247 ; 

•3248 8UFKA EQU 
•3249 8Uf M12s CALL 

•3250 JMP 
•3251 ; 

•32S2 BUFMI3: MOV 

•3253 MOV 

•3254 XCMO 

•3255 MOV 

•3256 IRC 

•3257 jhp 
■3258 ; 

•3259 RUFME: MOV 

■3260 IRC 

■3261 MOV 

•3262 CALL 

■3263 MOV 

•3264 MOV 

•3265 XCMD 



•3267 irc 
•3268 JNP 
■3269 ; 

■3270 8UFM8 EQU 
•3271 8UFM8L: MOV 
■3272 JMP 
■3273 : 

-3274 SOFMD1: MOV 
■3275 CALL 



FILLER CHARACTER 
8TTE OFXH ■ LA8EL TYPE TERMINATOR fLAC 
BYTE OCCN • TERMINATION CETRM8Y> 



A,R4 
8UFM10 



8UFH93 

R1,fSSUF 

A,R6 

A,#Of« 

A,*0 

A 



?JUMP IF SUFMAM REQUEST FLAG IS SET 
JJUMP IF CONK BUFFER IS BUST 



A,#LOU BUfTSL 
OA 

LOU 8UFM94 
LOU BUfMA 
LOW BUFM13 
LOU RUFME 
LOU 8UFM8 
LOU BUFMD1 
LOU BUFMD2 
LOU BUFMS3 



' BUFFER START ADDRESS 
;CET VERSION FLAGS 
;MASC VERSION POINTER 
;S£TUP CARRT FOR OA 

•JUMP IF POINTER > 9. ILLEGAL VERSION. 



; ILLEGAL VERSION. TNIS WAS MISSCN 



S 

BUFI2C 
8UFN90 

A,#OCQ* 
R0,BL6S1*3 
A,9R0 
8R1.A 
81 

BUFM12 



;FILUR CHARACTER 
; PAR ITT DECODE CHARACTER ADDRESS 
;PUT PARITY DECODE CHAR INTO A WITH FILLER 
;PUT FILLER 8 CHAR INTO SEND BUFFER 
•-MEXT AVAILABLE BUFFER LOCATION 
;C0 00 THE NEXT 12 CHARS 



8S1,80C0R 
R1 

R0,«L6S1 
M0V38T 
A,BOCOH 
R0.BL6S1+3 
A r SRO 

ati,A 

81 
8UFM90 

S 

R0,#L4S1 



» FILLER Uf E-R/S-0 DIGIT 



; FILLER 

^PARITY DECODE CHARACTER ADORESS 
JPUT PARITY DECODE CHAR INTO A WITH FILLER 
;PUT FILLER 6 CHAR INTO SEND BUFFER 



R0,ti6Sl 
MPV38T 
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IOC OBJ 



LIKE 



SOURCE STATEMENT 



PACE 44 



70 



75 



20 



25 



30 



35 



40 



45 



50 



65 



0F4D 1426 


•3277 


CALL 


N0Y2ST 


0F4F B836 


-3278 


NOV 


R0 # fL4Sl 


CF51 1426 


•327V 


CAU 


N0V2ST 


OFS5 E48f 


■3280 


JMP 


SUFK90 




■3281 ; 
•3282 SUFK>2: 






0F5S F400 


CAU 


SUF12C 


orsr sacs 


■3283 


MOV 


RQ,ftf2Sl 


0FS9 E471 


•3284 
•328S ; 


JNP 


8UFK8R 


OFSI F40O 


•3286 8UFMD3: 


CALL 


SUF12C 


0F50 B84E 


•3287 


NOV 


R0,fM3Sl 


0F5F 1426 


•3288 


CAU 


N0V2ST 


0F61 B8SA 


•3289 


NOV 


R0,fKSSl 


OT63 E471 


•3290 
•3291 ; 


JKP 


8UFM8R 


Of 65 F400 


•3292 SUFMD4: CAU 


SUF12C 


0F67 S8SA 


•3293 


NOV 


tO,fHSS1 


0F69 1426 


•3294 


CAU 


N0V2ST 


0F6S 8642 


•3295 


NOV 


R0 # SH1S1 


0F60 1426 


•3296 


CAU 


N0V2BT 


0F6F 8854 


-3297 


NOV 


to # msi 

N0V28Y 


0F71 1426 


•3298 sums*: 


CAU 


0T73 R83C 


•3299 


NOV 


R0 # *R4S1 
N0V2ST 


0F75 1426 


•3300 


CAU 


©F77 E48F 


•3301 
•3302 ; 


JNP 


SUFK90 


0F7V F400 


•3303 BUFIOS: CAU 


SUT12C 


Cm B8S4 


•3304 


NOV 


R0,fW4Sl 


0F7D 1426 


•330S 


CAU 


N0V2ST 


0F7F USC 


-3306 


NOV 


R0,«R4S1 


OFB1 1426 


•3307 


CAU 


N0V2ST 


oral sa4€ 


•3308 


NOV 


R0,t*3St 


oras 1426 


-3309 


CAU 


N0V2ST 


0F87 i860 


•3310 


NOV 


R0,*N6S1 


OFS? 1426 


-3311 


CALL 


N0V2ST 


oras 8842 


•3312 


NOV 


R0,fNlSl 


0F8O 1426 


-3313 
•3314 ; 


CALL 


N0V2ST 


0F8F FE 


■3315 SUFW90: 


NOV 


A,R6 


OF90 43F0 


■3316 


ORL 


A,f0fON 


0F92 A1 


•3317 


NOV 


8R1.A 


em 19 


•3318 


IKC 


R1 



jALREADT JUW>«D 



0F94 S1CC 
0F96 S966 
0F98 SICE 
0F9A 9475 

CF9C FC 
OF90 530F 
0F9F 4308 
0FA1 AC 
OFA2 83 

Of A3 FE 
0FA4 530F 
0FA6 96AC 

Of A8 FC 
OFA9 S30F 
OFAS AC 

Of AC 83 

Of AO A3 
Of AE 83 



0FF7 2S 



Of F8 02 



NOV 



-3319 : 
•3320 
•3321 
•33Z2 
-3323 
•3324 ; 

-332$ NOV 
-3326 AML 
•3327 OIL 
-3328 NOV 
•3329 SET 
-3330 ; 

•3331 8UFM93: NOV 
•3332 AML 
•3333 JKZ 
■3334 ; 

-3335 8UFM94: NOV 
-3336 ANL 
•3337 NOV 
-3338 ; 

•3339 SUFN95r SET 
3340 



atl.ffETttfST 

si # tssfpirr 

9Rl,fS8STRT 
CLRVER 

h 

A,i4 

A,f2SS~EBFRE0 

A,#ES*FUL 

R4 # A 



A.S6 

A.fOFN 

8UFN95 

A.R4 

A,f2S5-EBFREQ 
t4*A 



;CET VERSION FLAG 

;PUT II TERM MAT f OK FLAG NISSLE 

•PUT TERMINATION FLAG SYTE IK SUFFER 



•LOAD THE OATA TERMINATION CHARACTER 
•SEND SUFFER POINTER ADORESS 
?PUT PACKED DATA START ADRS IN POINTER 
; CLEAR THE VERSION POINTER/FLAG & OATA 



; CLEAR THE 
;SET TNE 



REQUEST FLAG 
BUFFER FUU SIT 



frASX TNE VERSION POINTER/FLAG 
•JUMP If A VALID VERSION 



; CLEAR TNE SUFfUN REQUEST FLAG 



3341 TROPCf s I 

3342 RET 

3343 

3344 ORG 

3345 ; 

3346 ; 

3347 ; 
3348 

3349 ; 

3350 ; 

3351 ; 
33S2 



A.8A 



0FF7N 



CXECKSUN STTE 



DATE 



2SN 
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15 



ISIS-II MCS-48/UPI-41 MACAO ASSEMBLE*. V4.2 
CMA095 ASSEMBLED 2/22/86 tr OLAKE ISAACS 



FACE 45 



IOC OCJ 
Off A 88 



Of n 52 
OffC 96 
Of ft) 01 
Of f E 55 



Offf 41 



LINE 



3353 ; 

3354 ; 

3355 ; 
3356 



3357 ; 
3356 ; 
3359 ; 
3360 
-3361 ?* 
3362 



SOUKCE STATEMENT 

t 



f*aat 



REVISION 
Of 



«*\96K,01K,53K 



•A* 



emo 



20 



25 



30 



35 



40 



50 



55 



uses snoots 

AFUK2 0855 
•UFM12 Of 26 
6UfM94 Of AS 

mtrms ©f 79 

CXCN20 0622 

CTf CA 06M 
CXtCVt 095F 
C186S6 0600 
COtfFIO 0070 
DtSMSX 072f 
0CSMD4 072C 
OtVKKC 076C 
ElOtT 0040 



EOECE 0010 
ECDLTV 002A 
EKTAft 0002 
Eldl 0002 
EB667 0000 
ES8A0 0001 
ETAMBT OOCC 
EVEB03 0007 
EXStf 4 0C7B 



8C0M80 0955 
IMCX90 0900 
t6S2 0020 
MAJSCS OSCE 
M00106 0561 
NM1t4 001C 

ms2 

K3S2 



039E 
M04C6 0A81 
9806C7 0AC1 
M07C0 M32 
MOCAL 0A4A 

rtoatT oa5o 

86SCMT 0034 
AOT40 0E37 



S0ATA4 0042 
SCSUH6 0830 

smut 0700 
miu oooo 

TSUC4 



T1ME30 001 f 
T H0T10 0306 
TM0T80 0333 
TFO* 0340 
TFOAET 0312 
: 0174 



0E5C 
SOT K13 Of 2A 

•umes ofac 

8UFME 0f33 
OXX30 062f 
CCOKX 0693 
C0OU 0837 
CCRCV2 0966 
CtKAAH 02A4 
CPAJtTT 050E 
DCSM7B 0754 
OtSMOS 0723 
E1000N 0032 
ESOTOM 0014 
EOECAt OOOC 
EOEOQO OOOf 
ECOTOM 0004 
Eutttr oou 

EK462 0004 

Estrut 0000 
CStSOT 0080 
EUP2SP 0020 
EVEA04 0008 
EXSSft 067E 
MCOMOS 0911 
MCCN90 0950 
IKOCtT 09C0 
t6SCXT 002C 
KAJSCS 08A8 
M0V28T 0626 
MTtCIO 0E89 
K1SCHT 0046 
M3SCVT 0052 
MSSCMT 0056 
KJU20 03C5 
Ht04C7 0A69 
M06C8 0AC7 
P807OC OtOO 
fCOCAfc 0A4C 
HtOCSC 0A04 
t6STOT 0035 
AOTSO Of 42 
SSSTRT OOCZ 
S0ATA9 0056 
SCSUM* 0854 
SUKSJ OAOO 
TBE86J 0002 
TSUS 009E 
fODCKT 0280 
TEM12 039A 
T8010 0406 
T8055 04S3 
TIHE40 0026 
TN9T20 030f 
TMOT90 0346 
TKW15 03C2 
TKAM 0131 
TBAAET 03S7 



BfAXttT 
8tlfK20 
OUfKA 

oumt 



0030 
OfOf 
0f26 
OfIC 
063f 



QXMTS 
O90U9 
03tCV3 

cttssr 

OIBEEF 
08SM7C 



E2000M 
EtftEO 
EOECAt 
ED ISMS 

Emm. 

EttSCAJH 
EK404 



0845 
096E 
0816 
0016 
0758 
0767 



0020 



00O1 
0011 
0010 
0001 



CVEtDS 0009 
EXSSFX 087A 
MC0K1 0 091A 
ROOHN 0900 
t«TT*f 0003 
L6ST0T 0020 
MCM2SY 09C1 
M0V38T 082A 
MTtC20 0EB8 
K1STOT 0047 
K3STOT 0053 
KSSTOT 005f 
fOU25 03CE 
Pt04C8 0A8f 
M06CN 0A9S 
ftOCOS 0A19 
ftOCD 0A14 
64S1 0Q3C 
80T05 0E08 
8DT40 0E48 



SOATAA 0046 

scsuot 083C 

SUPAStf 0980 ft 
T8E884 0C77 f 
TBUC6 
TOfTI 
TFJMtUT 
T8012 
TM059 
TIME45 
TM0T22 
1 HOI 95 
TP0K20 
TAAM10 



0038 
837F 
84U 
0455 
002f 
0311 
0348 
0355 
0133 



OACC TtOPCt 0807 



TK0PC4 04C6 



Bf4CST 0036 
KUFK5 0f43 
OUfMAM 0F09 
CX6T10 0090 
CXCK45 0645 
Of CIO 06A7 
CCKISM 0848 
CKKCV4 0977 
CUt SMI 0811 
OISCAtf 0012 
075E 
0720 
E200MS OOOA 
1 ECASE1 087C 
» E0CC87 0080 
' EOAOtf 002A 
EtASOO 0010 
COCIA 0002 
CA486 0040 
CSEHT 0010 
ETEST 0001 
CVE813 0002 
EVEKE 0003 
CETIUP 0275 
KC0H20 0933 
■Crett 094A 
t4Sl 0036 
tOOPOC 0292 
MCX38T 09CS 
MOV48T 062E 
MTKCMC 0E84 
M2S1 0048 
M4S1 0054 
K6S1 0060 
P0U30 0305 
P*04C8 0AS1 
WKJ7C2 OBOf 

rtogt oai4 

F 8 0C DM 0A2C 
84S2 003E 
8DT10 OEOA 
KOT70 0ES3 
SSUf AO 0067 
SECMJf 0020 
8SSUMT 0649 
SUP6SJ OA02 
TSE886 OC75 
T8LK7 OOOA 
TCKT2 003A 
TEST1 0241 
TM014 041C 
TNSNO 0500 
TIME50 0034 
TMOT24 0313 
TMOTOA 0300 
TF0K30 0350 
TKAK20 0139 
T8020 0110 
TtOPCS 0543 



trsan 0012 

8UfM8L 0F43 
OUfMDI 0f47 
OC6T20 089f 
OXMSO 064f 
CKf C20 0883 



8F6CST 0024 
OUfMSA Of 71 
BUFH02 0F5S 



OQRCV5 0981 



0KSM13 0710 
OftSMA 0710 
OtSTBt 0713 
C480KS 0018 
ECASE2 0685 
EOECOE OOOE 
EOCOtT 0016 
EMQ010 0866 
EP12 0004 
E«487 0080 
ES84CM 0010 
ETMARC 0002 
EVEX8 0004 
EVtSIt 0040 
COOOIO 0E60 
MC0M40 093A 
irtSMC 0077 
L4S2 0038 
tSTUSO 0070 
MCK48T 09C9 
MOVXST 0830 
MTKE20 0690 
V2S2 
M4S2 
K6S2 0062 



M06C2 0AA4 
P807C3 0813 
ftOC8 0A1B 
08J 0 C0K 0A28 
R4SCMT 0040 
K0TT5 0E15 
KOT90 0E7C 
SOUfSZ 0012 



STACK 0008 
SUP6S8 0998 
T8UC1 002f 
T8UC8 0CC 2 
T£tK02 0365 
TEST2 0245 
TOOTS 0420 
TINE02 0010 
TIME60 0038 
TM0T28 0325 
TMUAIO 0S3f 
Tf0N40 0367 
T8AK30 0141 
T8O50 011C 
TK0PG6 0603 



OUf 12C OFOO 
8Uf R90 Of Of 
8UFW3 0f58 
OCCttOS 0606 
CXCX7D 0675 
CCFC90 0898 
CXHS90 086F 
OCRCV9 096C 
CtKVEt 0C75 
tMtSHSX 074E 
08SM02 0748 
08SUH1 0708 
E6C82S 0002 
ECASE4 0696 



EfttST 0001 



CXMS80 0B6C 
CKRCV6 0989 
CUtTOO 0610 
DCSM1X 0756 
0RSMO1 0742 
tXSUK 007C 
E4CM2S 0001 
ECASE3 0690 
EOECBf OOOf 
EfCXST 0003 
EMOOCK 0690 
EP13 0008 Ef AMD 0000 
ER684 0010 E86BS 0020 
E»f 13 0020 
ETOME 0080 
EVEtOI 0005 
EXS8F2 0870 
000030 0E78 
8C0M60 0942 
IMCtMS 0985 
CAS TOT 003t 
MAJSC1 088E 
MCMXtT 0903 
MRS1 OOU 
NT8E88 0E93 
R2ST0T 0040 
K4ST0T 0059 
86ST0T 0065 
f*04C3 0A6A 
WWD6C4 OAAE 
P807C6 0828 
M0C8K 0A24 
MOCEJC OAAE 
B6S1 002E 
8OT30 0E1F 
tSTTXt 0000 
SCMFtC 0004 
SCMTC8 052A 
SUK2BT 0704 
SUPX8T 0A09 
T8LC2 0C9f 
TOtKE OCAf 
TE8K06 0380 
TESTA 0258 
T8029 0436" 
TIME10 0019 
TINKEO 0007 
TMOT50 032 F 
TOMCMT 0010 
TPCM60 0379 
T8AM50 0158 
TROPGO 0057 
T80K7 076£ T80PC8 08E4 
TtOTCf Of AO TAOtET 034 F 



ETOMCT 0028 
EVCtA 0001 
EUAIT 0008 
000020 0E71 
NCOK50 0930 
IMCMM8 09A0 
LA SOT 003A 
HAJSCO 0882 
MC8X8T 09C8 
HMO 0000 
MTRE30 0E9f 
K2SC8T 004C 
84SOCT 0058 
86SCKT 0064 
M04C2 0462 
M06C3 0AA8 
FH07C4 0819 
M0C8L OA20 
MOCE OA30 
84ST0T 0041 
80T20 0E19 
tOTAC Of 00 

80N90 0S3A 
SUN12C 0869 
SUTXEX 09A6 
T8UTI3 OC60 
TStXA 0C63 
TE8804 0388 
TEST3 0248 
T8O20 0434 
TIHE05 0015 
TIME* 0007 
TM0T40 0329 
TMUAIT 0531 
TfONSO 0371 
TKAN40 OUE 



8UFN10 OFOO 
8UFM93 Of A3 
8UFM0A 0F65 
OCCM10 061A 
CCCttOO 0688 
CTFC9S OOOf 
CCKCV 09SE 
CCtASC 0606 
COMtST 0032 
0CSM4X 074E 
0ASHO3 0739 
OAT INK 0005 
COOKS 0004 
E0EC8L OOOA 
EDCCO 0020 
EGDtT 0020 
EKSWtY OOtl 
EPtOEC 0004 
E8686 0040 
ESt^EA 0040 
ETONfO fffA 
EVER02 0006 
EXS8f3 0874 
000080 Of. 60 
MCON70 0955 
IMCtEM 0480 
t6S1 0024 
KAJSC4 08 C 4 
HOD 104 085C 
M8S183 0011 
IT1S1 0042 
M3S1 004C 
85S1 005A 
MEXT4 0516 
FK04C4 OA70 
rt06C6 0A80 
M07C7 082C 

mcA 0A4S 

MOCMT 0A37 
86S2 0031 
80T35 0E23 
SSfEMO 0078 
SOATA 003 F 
S6SUH4 0837 
SUK38T 0702 
TASAVE OOlf 
TStO 0066 
T880HE 0C70 
TfJttOe 0393 



TINE20 
TIKTIf 
TM0T60 
T 08LTM 
TP0890 
TAAM60 



0018 

0007 
0331 
OOU 
0378 
0168 
0176 
0904 
0121 
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PACE 46 



TXC10 04A4 
TST31 0251 
TTATA6 0200 
VEKD3 0CS6 
VE8T20 OCa 



TSC11 0488 
TST32 0255 
IWPT1 021D 
VE104 0C55 
VE8T60 0CS8 



TSC12 0464 
TSUI 0262 
IMPC2 0222 
VEK05 0C54 
VE1T90 OC62 



TSC20 047E 
TST42 0266 
VE115 0C60 
VERE 0C5F 
VEtTAC 0C00 



TSC8UF 0050 
TTA90 02A7 
VEAfl 0C5E 
VEKFLC 0006 
UBJCB3JT 0079 



Tsarr 0462 

TTACKC 02A9 
VEKA 0C61 
VEKT05 0C2C 



TSEC1 0050 
TTAC 020C 
VEtDl 0CS8 
VE8T10 0C35 



TSSC2 0054 
TTA8ET 0569 
VE102 0CS7 
VEKT15 0C5£ 



ASSCMLT CCKPtETE, MO EfttORS 



70 



75 



20 



25 



30 



35 



40 



45 



60 



ISIS-II 

A*J*2 1625* 
MOID 3124* 

tKarr 2518 

8F4CST 2t1# 
•HOT 2098 
8F6CXT 199* 
0UF12C 52021 

•urxta 3224 

•UTN12 5249* 
8UFM5 3239 

msnoa 322W 

OUTW 3241 
OtlfltSl 52711 

■met 3272 

SUFN90 32S0 



ft£FEK£8CE, V2.1 



1659 1645 1711 

15U 
2S1 
1502 

209 1501 



1515 



5249 
3228* 
5257 



SUFM94 3233 
WFM9S 5333 
•untt 3238 

wnum 1852 

ttmei 3242 
•UFW2 5243 
•ones 5244 
KOOi 3245 
tUnoS 3246 
wnc 3240 
KffTSL 323S 
CT6T10 2442* 
06720 2441 
CE6T0T 24381 
CraWS 1251 

exano 12*9* 



3282 3286 3292 



3270i 

3284 3290 3298* 

3268 -3280 3301 3315* 

33311 

3237 3335* 
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It can be seen therefore that the use of a common interface according to the present invention in a 
40 combined scanner and scale system provides significant advantages over prior art systems in which the 
scanner and the scale do not share an interface. Only a single connector cable and only a single port of the 
cash register system are require to connect both the scale and the scanner to the cash register system. 
Further the costs associated with the scanner and the scale having dedicated interface circuits are 
eliminated by the sharing of an interface circuit according to the present invention. 
45 Having described the invention in detail and by reference to the preferred embodiment thereof, ft will be 
apparent that other modifications and variations are possible without departing from the scope of the 
invention defined in the appended claims. 



so Claims 

1. A data gathering system for use in a checkout counter to determine information relating to products 
to be purchased and to provide such information to a cash register system, comprising: 
scale means supported within said checkout counter for determining weights of products presented to said 
55 data gathering system, said scale means including a subplatter located below the upper surface of said 
checkout counter, 

optical scanning means supported upon said subplatter for reading coded labels on said products, and 

a common interface circuit, response to both said scale means and said optical scanning means, for 
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providing weight data and coded label data to said cash register system. 

2. A data gathering system for use in a checkout counter as claimed in claim 1 further comprising 
support means for suspending said data gathering system within said checkout counter, said scale means 
being secured to said support means. 

3. A data gathering system for use in a checkout counter to determine information relating to products 
to be purchased, including weight data and coded label data, and to supply said information to a cash 
register system, said counter defining an upper surface upon which products are placed for access to said 
data gathering system, comprising: 

support means for suspending said data gathering system within said checkout counter, 
scale means secured to said support means for determining weights of products presented to said data 
gathering system, said scale means including a subplatter located below the upper surface of said checkout 
counter, 

optical scanning means supported upon said subplatter for reading coded labels on said products, said 
optical scanning means having an upper surface including an optical scanning window, said optical 
scanning means being sized such that its upper surface is substantially aligned with the upper surface of 
said checkout counter when supported upon said subplatter, and 

a common interface circuit, responsive to both said scale means and said optical scanning means for 
providing both weight data and coded label data to said cash register system. 

4. A data gathering system for use in a checkout counter as claimed in claim 1.2 or 3, wherein said 
subplatter includes scanner locator means for positioning said optica! scanning means on said subplatter for 
assembly of said data gathering system. 

5. A data gathering system for use in a checkout counter as claimed in claim 1,2,3 or 4 in which said 
optical scanning means includes a bar code decoder circuit for decoding scan signals to provide coded 
label data, a scanner microprocessor for correlating coded label data and supplying said coded label data 
to said common interface circuit, and memory means for storing control software for use by said scanner 
microprocessor. 

6 . A data gathering system for use in a checkout counter as claimed in claim 5 , in which said scale 
means supplies weight data to said bar code decoder circuit of said optical scanning means, and said bar 
code decoder circuit supplies said weight data to said common interface circuit via said scanner 
30 microprocessor without alteration. 

7. A data gathering system for use in a checkout counter as claimed in any preceding claim, in which 
said common interface circuit comprises an interface microprocessor, responsive to coded label data from 
said optical scanning means and to weight data from said scale means, memory means for storing control 
software for use by said interface microprocessor, and a driver circuit, responsive to said interface 
microprocessor, for supplying weight data and coded label data to said cash register system. 

8. A data gathering system for use in a checkout counter as claimed in claim 6 or7 in which said scale 
means supplies weight data directly to said common interface circuit 

9. A data gathering system for use in a checkout counter as claimed in claim 6,7 or 8 further 
comprising cables connected between said scale means and said optica! scanning means for conducting 
electrical signals and power, said cables being sized, positioned and secured to prevent interference with 
the operation of said scale means. 
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© A data gathering system (100) for use in a 
checkout counter (102) to determine information re- 
lating to products to be purchased and to provide 
such information to a cash register system includes 
a scale (104) supported within the checkout counter 
(102) for determining weights of products presented 
to the data gathering system (100). The scale (104) 
includes a subplatter (110) located below the upper 
surface of the checkout counter(102). An optical 
scanning arrangement (112) is supported on the 
subplatter (110) for reading coded labels on the 
products. A common interface circuit (200) is re- 
sponsive to both the scale (104) and the optical 
scanning arrangements 12) for providing weight data 
and coded label data to the cash register system. 
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